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PREFACE 


This 


publication provides customer 
engineers and other technical personnel 
with information describing the internal 


Organization and operation of the FORTRAN 
IV (G) compiler. 
grated library of IBM System/360 Operating 
System Program Logic Manuals. Other publi- 
cations required for an understanding of 
the FORTRAN IV (G) compiler are: 


Principles of Operation, Form A22-6821 


FORTRAN IV _Lanquage, Form C28-6515 


Introduction to Control Program Logic, 


Program Logic Manual, Form Y28-6605 


Form C28-6817 


Any reference to a Programmer's Guide 
in this publication applies to FORTRAN 
IV_(G and H) Programmer's Guide, Form 
C28-6817. The FORTRAN IV (G) Program- 
mer's Guide, Form C28-6639, (to which 
references may exist in this publica- 
tion) has been replaced by the com- 
bined G and H Programmer's Guide. 


Although not required, the following 


publications are related to this publica- 
tion and should be consulted: 


IBM System/360 Operation System: 


Form Y28-6604 | 


<= ae eeeeeny wa eo 


Third Edition (December 1972) 


It is part of an inter. 


Concepts and Facilities, Form C28-6535 


Supervisor and Data Management Macro- 
Instructions, Form C28-6647 


Form Y28-6610 
System Generation, Form C28-6554 


This 
sections: 


publication consists of two 


‘Section 1 is an introduction that 
describes the FORTRAN IV (G) compiler as a 
whole, including its relationship to the 
operating system. The major components of 
the compiler and relationships among them 
are also described in this section. 


Section 2 consists of a discussion of 
compiler operation. Each component of the 
compiler is described in sufficient detail 
to enable the reader to understand its 
operation, and to provide a frame of 
reference for the comments and coding supp- 
lied in the program listing. Common data 
such as tables, blocks, and work areas is 
discussed only to the extent required to 
understand the logic of each component. 
Flowcharts are included at the end of this 
section. 


Following Section 2, are appendixes that 
contain reference material. 


If more detailed information is 
required, the reader should see the com- 
ments, remarks, and coding in the FORTRAN 
IV (G) program listing. 


This is a reprint of GY28-6638-1 incorporating changes in Technical 


Newsletters GY28-6826, dated November 15, 1968 (Release 17), 


GY28-6829, dated July 23, 1969 (Release 18), and GY28-6847, dated 


January 15, 1971 (Release 20). 


Changes are periodically made to the specifications herein; any 
such changes will be reported in subsequent revisions or Technical 


Newsletters. 


Requests for copies of IBM publications should be made to your IBM 
representative or to the IBM branch office serving your locality. 
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This section contains general informa- 
tion describing the purpose of the FORTRAN 
IV (G) compiler, the minimum machine confi- 
guration required, the relationship of the 
compiler to the operating system, compiler 
design and implementation, and compiler 
output. The various rolls,1 variables, 
registers, pointers, and drivers used by 
the compiler are also discussed. 


PURPOSE OF THE COMPILER 


The IBM System/360 Operating System 
FORTRAN IV (G) compiler is designed to 
accept programs written in the FORTRAN IV 
language as defined in the publication IBM 


System/360: FORTRAN IV Language, Form 
C28-6515. 


The compiler produces error messages for 


invalid statements, and, optionally, a 
listing of the source module, storage maps, 
and an object module acceptable to the 
System/360 Operating System linkage editor. 


MACHINE CONFIGURATION 


The minimum system configuration 
required for the use of the IBM System/360 
Operating System with the FORTRAN IV (G) 
compiler is as follows: 


° An IBM System/360 Model 40 computer 
with a storage capacity of 128K bytes 
and a standard and floating-point 
instruction set. 


° A device for operator communication, 
such as an IBM 1052 Keyboard Printer. 


° At least one direct-access device PEO= 
vided for system residence. 


COMPILER AND SYSTEM/360 OPERATING SYSTEM 


The FORTRAN IV (G) compiler is a proces- 
sing program of the IBM System/360 


1Most of the tables used by the compiler 

are called rolls. (Further explanation of 
rolls is given in "Rolls and Roll 
Controls. ”*) 


SECTION 1: INTRODUCTION TO THE COMPILER 


Operating System. AS a processing program, 
the compiler communicates with the control 
program for input/output and other ser- 
vices. A general description of the con- 
trol program is given in the publication 
IBM System/360 Operating System: _Introduc— 
tion to Control Program Logics Program 
Logic Manual. 


A compilation, or a batch of compila- 
tions, is requested using the job statement 
(JOB), the execute statement (EXEC), and 
data definition statements (DD). Alterna- 
tively, cataloged procedures may be used. 
A discussion of FORTRAN IV compilation and 
the available cataloged procedures is given 
in the A ageeteaaecn IBM System/360 0 Ope rating 


The compiler receives control 
from the calling program (e.g., job sche- 
duler or another program that CALLs, LINKs 
to, or ATTACHes the compiler). Once the 
compiler receives control, it uses the QSAM 
access method for all of its input/output 
operations. After compilation is  con- 
pleted, control is returned to the calling 
program. | 


initially 


COMPILER DESIGN 


The compiler will operate within a total 
of 80K bytes of main storage. This figure 
includes space for the compiler code, : data 
Management access routines, and sufficient 


working space to meet other storage 
requirements stated throughout this 
publication. es 


Any additional Seorece available is used 


as additional roll storage. 


LIMITATIONS OF THE COMPILER 


The System/360 Operating System FORTRAN 
IV (G) compiler and the object module it 
produces can be executed on all System/360 
models from Model 40 and above, under 
control of the operating system control 
program. All input information must be 
written in either BCD or EBCDIC representa- 
tion. The compiler is designed to process 
all properly written programs so that the 
object code produced by the compiler is 
compatible with the exeoring mathematical 
library subroutines. 
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If ten source read (errors | occur during 
the compilation, or if it is not possible 
to use SYSPRINT, the operation of the 
compiler is terminated. The operation of 
the compiler is also limited by the availa- 
bility of main storage space. The compila- 
tion is terminated if: 


e The roll storage area is exceeded 


e Any Single roll exceeds 64K bytes, 
thereby making it tae 


e The WORK or EXIT roll exceeds its 
allocated storage , 
Note: If any of these conditions occur 


during the first phase of the compilation, 
the statement currently being processed may 
be discarded; in this case, the compilation 
continues with the next statement. 


COMPILER IMPLEMENTATION 


The primary control and processing rou- 
tines (hereafter referred to as “POP rou- 
tines" or “compiler routines") of the com- 
piler are primarily written in machine- 
independent pseudo: ‘instructions called . POP 
instructions. 


Interpretation of the. pseudo instruc- 
tions is accomplished by routines written 
in the System/360 Operating System assembl- 
er language. These routines (hereafter 
referred to as "POP subroutines") are an 
integral part of the compiler and perform 
the operations specified by the POP ins- 
tructions, e@.g., Saving of backup informa- 
tion, maintaining data. indicators, and gen- 
eral housekeeping. | >% 


control of the compiler | operation is 
geeseiy affected by source language syntax 
rules during the first phase of the compil- 
er, Parse. During this phase, identifiers 
and explicit declarations encountered in 
parsing are placed in tables and a Polish 
notation form of the program is produced. 
(For further information on Polish nota- 
tion, see ee Cc, "Polish Notation 
Formats.") e. oy 
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method of 


generating. 
phases, operate directly on the tables and 
Polish notation produced by Parse. > 


programming language whose 


formed by a compiler. . 


address constants which together 
an instruction. 
statement or instruction written in the POP 
language is called a POP. » 
‘tions are described in Appendix A. | 


Unify, Gen, and. Exit. 


-IEYFORT, | 
and ITEYEXT.. : 
second 
used in each phase are shown in Figure 2.) 
In addition, 
area, 


..The compiler quite frequently uses’ the 
recursion in parsing, analysis, 
and optimization. All optimizing and code 
routines, which appear in later 


‘The compiler is also designed so that 


reloading of the compiler is unnecessary in 
order to accomplish multiple 


compilations. 


‘POP LANGUAGE _ 


The FORTRAN IV (G) compiler is written 
in a combination. of two languages: the 
System/360 Operating System assembler lan- 
guage, which is used where it is most 


efficient, and the POP language. 


a mnemonic macro 
instructions 
functions that are frequently per- 
POP instructions are 


~The POP “language. is 


include 


written for assembly by the System/360 
Operating System. assembler, with the POP 
instructions defined as macros, Each POP 


pair of 
indicate 
operand. A 


instruction is assembled as a 
code and an 


The POP instruc- 


‘COMPILER ORGANIZATION 


“The System/360 Operating System FORTRAN 


Iv. (G) compiler is composed of a control 
phase, Invocation, and five. processing 
phases. (see Figure 1): Parse, Allocate, 


The operating system 
names for these phases ‘are, respectively, 
IEYPAR, IEYALL, IEYUNF, IEYGEN, 
(The first level control and 
level processing compiler routines 


Move is a pre-assembled work 
IEYROL. «=. OA 


fo aor as. | eee ee 1 (7c. 
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| Module | ] Program | | Phase 
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Overall Operation of the Compiler 


Section 1: 


SYSPRINT 


SYSPRINT 


SYSPRINT 


SYSPUNCH/SYSLIN 


- SYSPRINT 


SYSPUNCH/SYSLIN 


SYSPUNCH/SYSLIN 
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Control Phase: Invocation. (IEYFORT) 


The Invocation phase (IEYFORT) is loadea 


upon invocation of the compiler and remains 
in core storage throughout compilation. It 
is entered initially from the calling pro- 
gram, from each module at the end of its 
processing, and from Exit after compilation 
is complete. . 


At the initial entry, the Invocation 
phase initializes bits in IEYFORT1 from the 
options specified by the programmer for the 
compilation, opens data sets, and fetches 
the modules IEFYPAR, IEYALL, IEYUNF, IEYGEN, 
and IEYEXT via a series of LOAD macro 
instructions. These modules remain in core 
Storage for a series of main program and 
Subprogram compilations unless it is deter- 
mined that additional space required for 
tables is not available. When this occurs, 
modules. that precede the active one are 
deleted, and compilation is resumed. If 
more space is required, modules that follow 
the currently active one are deleted. 


When a module completes processing, it 
returns to IEYFORT, which ensures the pre- 
sence of the next module and transfers to 
it. During initialization for a subpro- 
gram, IEYFORT ensures that all modules are 
loaded. 


The last entry is made from the Exit 
phase at the completion of a compilation. 
When the entry is made from Exit, the 
Invocation phase checks for multiple compi- 
lations. If another compilation is 
required, the compiler is reinitialized and 
the main storage space allocated for the 
expansion of rolls is assigned to the next 
compilation; otherwise, control is returned 
to the calling program. 


Phase 1: Parse (IEYPAR) 


Parse accepts FORTRAN statements in card 


format from SYSIN and scans these to pro- 
duce error messages on the SYSPRINT data 
set, a source module listing (optional), 


and Polish notation for the program. The 
Polish notation is maintained on internal 
tables for use by subsequent phases. In 


addition, Parse produces the roll entries 
defining the symbols used in the source 
module. 
Phase 2: Allocate (IEYALL) 

Allocate, which operates immediately 


after Parse, uses the roll entries produced 
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module. The 


DO loops and undefined labels are 


object instruction for 


number 


(i.e., a 


by Parse to perform the storage allocation 
for the variables defined in the source 
addressing information thus 
produced is then left in main SECEads to be 
used by the next phase. 


The ESD cards for the object module 
itself, COMMON blocks and subprograms, and 
TXT cards for NAMELIST tables, literal 
constants and FORMAT statements are pro- 
duced by Allocate on the SYSPUNCH and/or 
SYSLIN data sets. Error messages for 
COMMON and EQUIVALENCE statements, unclosed 
produced 
on SYSPRINT; on the MAP option, maps of 
data storage are also produced. 


Phase 3: 


The Unify phase optimizes the 
general registers within DO loops by 
operating on roll data which describes 
array references. The optimization applies 
to references which include subscripts of 
the form ax+b, where a and b are positive 
constants and x is an active induction 
variable (that is, x is a DO-controlled 
variable and the reference occurs within 
the DO loop controlling it), and where’ the 
array does not have any adjustable dimen- 
sions. The addressing portion of the 
each. such array 
reference is constructed to minimize the 
of registers used for the reference: 
and the number of registers which must be 
changed as each induction variable changes. 


usage of 


Phase 4; Gen (IEYGEN) 


Gen uses the Polish notation produced by 
Parse and the memory allocation information 
produced by Allocate. From this informa- 
tion, Gen produces the code, prologues, and 
epilogues required for the object module. 
In order to produce the object code, Gen 
resolves labeled statement references 
branch target label) and subpro- 
gram entry references. 


The final output from Gen is a. complete 
form of the machine language code which is 
internally maintained for writing by the 
Exit phase. 


Phase 5: Exit (IEYEXT) 


Exit, which is the last processing phase 
of the compiler, produces the TXT cards for 


the remaining portion of the object module, | 


the RLD cards (which contain the relocat- 
able information), and the END card. . 
output is placed optionally on the SYSLIN 


data set for linkage editor processing 
and/or SYSPUNCH if a card deck has been 
requested. Additionally, a listing of the 


generated code may be written on the SYS- 


This. 


Section 1: 


PRINT data set in a format similar to that 
produced by an assembly program. 


GEES ere wEnine CaSO eget 


Roll contains static rolls and roll 
information always required for compiler 
operations. These are described under the 


heading "Rolls and Roll Controls" later in 
this section. 
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Figure 2. Compiler Organization Chart 
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Figure 3. Compiler Storage Configuration. 


COMPILER STORAGE CONFIGURATION 


Figure 3 illustrates the relative posi- 
tions, but not the relative sizes of the 
component parts of the FORTRAN compiler as 
they exist in main storage. The component 
parts of each phase are described in Sec- 
tion 2. 


COMPILER OUTPUT 


The source module(s) to be compiled 
appear aS input to the compiler on the 
SYSIN data set. The SYSLIN, SYSPRINT, and 
SYSPUNCH data sets are used (depending on 
the options specified by the user) to 
contain the output of the compilation. 


The output of the compiler is repre- 
sented in EBCDIC form and. consists. of any 
or all of the following: 7 


Object Module (linkage editor input) 

Source Module listing 

Object Module listing 

Storage maps 

Error messages (always produced) 

Relocatable card images for punching 

The overall data flow and the data sets 
used for compilation are illustrated in 


Figure 4. The type of output is determined 
‘by compile time parameters. | 
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OBJECT MODULE 


The configuration of the object module 
produced by the FORTRAN IV (G) compiler is 
shown in Figure 5. 


Entry point---> p--------------------- 1 
|] Heading | 
}--------------------- { 
{Save area | 
aes ars i he J 
|Base table | 
auc rer aie eee ele | 
| Branch table ] 
|--—------------------ { 
{Subprogram argument | 
Jlists | 


{Literal constants 

| (except those used 
Jin DATA and PAUSE 

|statements) © 


{Temporary storage 
jJand constants 


| Program text _ 
Looe eee kee oeew ee eS 


| Figure 5. Object Module Configuration 


Components of the Object Module 


The following paragraphs describe the 
components of the object module produced by 
the FORTRAN IV (G) compiler. 


HEADING: The object module heading 
includes all initializing instructions 


required prior to the execution of the body 


Section 1: 


other 


of the object module. Among func— 
tions, these instructions set general 
register 13 (see “Object Module General 


Register Usage") and perform various opera- 
tions, depending on whether the program is 
amain program Or a esubprogram and on 
whether it calls subprograms. (See "Code 
Produced for SUBROUTINE and FONCTION 
Subprograms.™) 


at maximum 72 
bytes long, is reserved for information 
saved by called subprograms. Figure 6 
shows an example of the use of this area in 
program Y, which is called by program ¥X, 
and which calls program Z. 


SAVE __AREA: The 


Save area, 


The first byte of the fifth word in the 
save area (Save Area of Y + 16) is set to 
all ones by program Z before it returns to 
program Y. Before the return is made, all 
general registers are restored to their 
program Y values. 


E TAB The base table 1s a list of 
adijiresses from which the object module 
loads a general register prior to accessing 
data; the general register is then used as 
a base in the data referencing instruction. 


Because an interval of 4096 bytes of 
storage can be referenced by means of the 
machine instruction D field, consecutive 
values representing a Single ccntrol sec- 
tion in this table differ from each other 
by at least 4096 bytes. Only one base 
table entry 1S constructed for an array 
which exceeds 4096 bytes in length; hence, 
there is a possibility that an interval of 
more than 4096 bytes exists between conse- 
cutive values for a single control section 
in the table. 


The addresses compiled into this table 


are ail relative, and are modified by the 
linkage editor prior to object module 
execution. Those entries constructed for 


references to COMMON are modified by the 
beginning address of the appropriate COMMON 


block; those entries constructed for 
references to variables and constants 
within the object module itseif are modi- 


fied by the beginning address of the appro- 
priate object module. | 
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| Subprogram 
Save Area of Y{epilogue address] 
+4 |Program X save | 
Jarea address | 


+8 | Program Z save ] 
Jarea address | 


}---------------- { 

+12 |Register 14 | 
}---------------- { 

+16 JRegister 15 | | 
}----------------4 

+20 |Register 0 | | 
2 { 

i . | 

| , | 

. | 

} ---------------- i 

+72 |Register 12 | 
ie es eee J 


Figure 6. Example of Use of Save Area 


BRANCH _TABLE: This table pone one 








SY CEE UTS SEE atria ee 


(a label referred to ina “branch — Syateneae) 
and statement function in the source 
module. In addition, one entry occurs for 
each label produced by the compiler in 
generating the object module. These labels 
refer to return points in DO loops and to 
the statement following complete Logical IF 
statements, and are called made labels. 


In the object module code, any branch is 
performed by loading general register 14 


(see “Object Module General Register 
Usage") from this table, and usSinc a BCR 
instruction. The values placed in this 
table by the compiler are relative ad- 
dresses. Each value is modified by the 
base address 


of the object module by the 
linkage editor. i 


_ SUBPROGRAM ARGUMENT LISTS: This portion of 
the object module contains the addresses of 
the arguments for all subprograms’ called. 
In calling a subprogram, the object module 
uses general register 1 to transmit a 
location in this’ table. The subprogram 
then acquires the addresses: of its argu- 
ments from that location and from as many 
subsequent locations as there are argu- 
ments. The sign bit of the word containing 
the address of the last argument for each 
subprogram is set to one. 


18 


| <---Stored by initial entry code. 
<---Stored by program Y.- 


_<---Stored by program Ze 


Values on leaving program Y, 


Ce et ee de ee ee ee 


correct amount of space for the list, 


ere TABLES: For 
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if it calls subroutines: 


stored by program Z. 


SUBPROGRAM ADDRESSES: This list contains 
one entry for each FUNCTION or SUBROUTINE 
subprogram referenced by the object module. 
The entry will hold the address of that 
subprogram when it .is supplied by the 
linkage editor. The compiler reserves’ the 
based 
on the number of subprograms referred to by 


the source module. 


EQUIVALENCE VARIABLES: This area of the 
object module contains unsubscripted 


variables and arrays, listed in EQUIVALENCE 
sets which do not refer to COMMON. | 


SCALAR ___VARIABLES: All. non-subscripted 
variables which are not in COMMON and are 
not members of EQUIVALENCE sets. eEReas in 


this area of the object module. 





ARRAYS: All arrays which are not in 


COMMON, and are not members of EQUIVALENCE 
sets appear in this area of the object 


module. — 


LIST TABLES each NAMELIST name 
and DISPLAY statement in the source module, 
a NAMELIST table 1S constructed hy the 
compiler and placed in this area of the 
object module. Each table consists of one 
entry for each scalar variable or array 
listed following the NAMELIST name or in 
the DISPLAY statement, and begins with four 
words of the following form: 








where the name field contains the  NAMELIST 
name, right justified. For the DISPLAY 
Statement, the name is DBGnn#, where nn is 
the number of the DISPLAY statement within 
the source program or subprogram. 

Table entries for scalar variables have 
the following form: 





where: 


name field 
contains 
able, right justified. 


address field 
contains the relative address of the 
variable within the object module. 


type field : 7 
contains zero to indicate a scalar 
Variable. : 

mode field 7 
contains the mode 


of the 
coded as follows: 


variable, 


Logical, 1 byte 

Logical, fullword 

Integer, halfword | 

Integer, fullword 

Real, double precision 

Real, single precision © 

Complex, double precision 

Complex, Single precision 

Literal (not currently 
compiler-generated) 


PwWOYWA UL WN 
Wou Ud WW Ww tm ab a 


NAMELIST table entries for arrays have 


the following form: 


the name of the scalar vari- mode field 
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Jindica-|first dimension factor |] 


Se... wor |field | 

Jnot J}second dimension factor | 

6 {used |fielid | 

}-------}----------------------- { 

jnot Jthird dimension factor | 

7 j used | field | | 

L_-—_~— —t----------------------- | 

. . | 

. . | 

- . | 

etc. etc. | 

Se Ae Ne A ea I I ME ee Sere a pee oh ee ee J 
where: 


name field 
contains the name of the array, 
justified. 


right 


address field 
contains the 
beginning of the 

object module. 


relative address of the 
array within the 


Of the array ele- 
Variables, - 


contains the mode 
ments, coded as for scalar 
above. 


no. dimens. 
contains the number of dimensions in 
the array; this value may be 1-7. 


length field 
contains the length of the array 
ment in pytes. 


ele- 


indicator field 
is set to zero if the array has been 
defined to have variable dimensions; 
otherwise, it is set to nonzero. 


first dimension factor field | 
contains the total size of the array 
in bytes. 7 


second dimension factor field 
contains the address of the second 
multiplier for the array (n1*L, where 
nilis the size of the first dimension 
in elements, and Lis the number of 
bytes per element). 
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third dimension factor field 


contains the address of the third 
multiplier for the array (n1i*n2*L, 
where nil is the size of the first 


dimension in elements, n2 is the size 
of the second dimension, and Lis’ the 
number of bytes per element). 


A final entry for each NAMELIST table is 
added after the last variable or array name 
to signify the end of that particular list. 


This entry is a fullword in length and 
contains all zeros. | 
LITERAL CONSTANTS: This area contains a 


list of the literal: constants used in the 
source module, except for those specified 
in DATA and PAUSE statements. 

FORMAT STATEMENTS: The FORMAT statements 
specified in the source module are con- 
tained in this area of the object module. 
The statements are in an encoded form in 
the order of their appearance in the source 
module. (See “Appendix D: Code Produced 
by the Compiler.") Tne information contains 
all specifications of the statement but not 
the word FORMAT. 


TEMPORARY STORAGE AND CONSTANTS: This area 
always begins on a double precision boun- 
dary and contains, in no specific order, 
the constants required by the object module 
code and the space for the storage of 
temporary results during computations. Not 
all of the source module constants neces- 
Sarily appear in this area, since as _ many 
constants as possible are used as immediate 
data in the code produced. Some constants 
may appear which are not present in the 
source module, but which have been produced 
by the compiler. | 





PROGRAM TEXT: If 


the object module con- 
tains statement functions, the code for 
these statements begins the program text 
and is preceded by an instruction that 
branches around them to the first execut- 
able statement of the program. (See 
"Statement Functions" in Appendix D for 
further explanation of this code.) Follow- 
ing the code for the statement functions is 
the code for the executable statements of 
the source module. 


The object module produced by the 
FORTRAN IV (G) compiler uses the System/360 
general registers in the following way: 

Register 0: Used as an accumulator. 


Register 1: Used as an accumulator and 


to hold the beginning address of the 
argument list in branches to sub- 
programs. | | . » 
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Register 2: Used as an accumulator. 


Register 3: Used as an accumulator. 


Registers 4 through 7: Contain index 
values aS required for references to 
array variables, where the subscripts 
are linear functions of DO variables and 
the array does not have variable 
dimensions. 


Registers 8 and 9: Contain index values 
as required for references to array 
variables, where the subscripts are of 
the form xtc, where x is a non DO- 
controlled variable and c is.a constant. 


Register 9: Contains index values. as 
required for references to array 
variables where the subscripts are non- 


linear of the form I*J, where I and J 
are the variables. 


Registers 10 through 12: Contain base 
addresses loaded from the base table. 


Register 13: Contains the beginning 
address of the object module save area; 
this value is loaded at the beginning of 
program execution. Register 13 is also 
used for access to the base table, since 
the base table follows the save area in 
main storage. : 


return 


Register 14; Contains the 

address for subprograms and holds’ the 
address of branch target instructions 
during the execution of branch 


instructions. 


Register 15: Contains the entry point 
address for subprograms as they are 
called by the object module. 


SOURCE MODULE LISTING 


The optional source module listing is a 
symbolic listing of the source module; it 
contains indications of errors encountered 
in the program during compilation. The 
error message resulting from an erroneous 
statement does not necessarily cause ter- 
mination of compiler processing nor the 
discarding of the statement. Recognizable 
portions Of declaration statements are 
retained, and diagnosis always proceeds 
until the end of the program. 


OBJECT MODULE LISTING 


The optional object module listing uses 
the standard System/360 Operating System 


assembler mnemonic operation codes and, 
where possible, refers to the symbolic 
variable names contained in the source 
module. Labels used in the source module 
are indicated at the appropriate places in 
the object code listing. 


STORAGE MAPS 


The optional storage map consists of six 
independent listings of storage informa- 
tion. Each listing specifies the names and 
locations of a particular class of vari- 
able. The listings are: 

¢ COMMON variables 

® EQUIVALENCE variables 

e Scalar variables 

e Array variables 


e NAMELIST tables 


_e FORMAT statements 


A list of the subprograms called is also 


produced. 


ERROR MESSAGES 


Errors are indicated by listing the 
statement in its original form with the 
erroneous phrases or characters undermarked 
by the dollar sign character, followed by 
comments indicating the type of the error. 
This method is described in more detail in 
"Phase 1 of the Compiler: Parse (IEYPAR)." 


Common Error Messages 


The message 
duced (through IEYFORT) by all phases of 
the compiler when the program being com- 
piled exhausts the main storage space 
available to the compiler. This message is 
produced only when the PRESS MEMORY routine 
cannot provide unused main storage space on 
request from the compiler. 


The message ROLL SIZE EXCEEDED is pro- 
duced (through the Invocation phase, 
IEYFORT) by all phases of the compiler when 
the size of any single roll or rolls is 
greater than permitted. The following cir- 
cumstances cause this message to be 
produced: : 


NO CORE AVAILABLE is pro-- 
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e The WORK roll exceeds the fixed storage 
Space assigned to it. 


e The EXIT roll exceeds the fixed storage 
Space assigned to it. 


e Any other roll, with the exception of 
the AFTER ,POLISH roll and the CODE 
roll, exceeds 64K bytes of storage. In 


this case, the capacity of the ADDRESS 
field of a pointer to the roll is 
exceeded and, therefore, the informa- 


tion on the roll is unaddressable. The 
AFTER POLISH and CODE rolls are 
excepted, since pointers to these rolls 
are not required. | | 


The compilation terminates following the 
printing of either of these messages. | 


COMPILER DATA STRUCTURES 


The POP language is designed to manipul- 
ate certain well-defined data structures. 


Rolls, which are the tables primarily 
used by the compiler, are automatically 
handled by the POP instructions; that is, — 
when information is moved to and from 
rolls, controls indicating the status of 
the rolls are automatically updated. | 


Items (variables) with fixed structures 
are used to maintain control values for 
rolls, to hold input characters being pro- 
cessed, and to record Polish notation, etc. 
These item structures are also handled 
automatically by the POP instructions. 


The arrangement of the parts of the 
compiler is Significant because of the 
extensive use of relative addressing in. the 
compiler. General registers are used to 
hold base addresses, to control some rolls, 
and to assist in the interpretation of the 
POP instructions. 


ROLLS AND ROLL CONTROLS 


Most of the tables 
compiler are called rolls. This term de- 
scribes a table which at any point in time 
occupies only as much storage as is 
required for the maximum amount of informa- 
tion it has held during the present compi- 
lation (exceptions to this rule are noted 
later). Another distinctive feature of a 
roll is that it is used so that the last 
information placed on it is the first 
information retrieved. -- it uses a “push 
up* logic. 


employed by the 
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- With the exception of the WORK and EXIT 
rolls, 
tained in an area called the roll _ storage 
area. The. .rolls in this~.area-are both 
named and numbered. While. the references 
to rolls in this document and in the 
compiler comments are primarily. by name, 
the names -are converted to corresponding 
numbers at assembly .time and-the rolls. are 
arranged in storage and referred to by 
number. , be - oe 


If the roll storage area is 
to. be one block of continuous storage, the 
rolls are placed inthis area in. .ascending 
sequence by roll number; that is, roll 0 
begins at the base address of the roll 
Storage area; .rolls 1, 2, 3, etc., follow 
roll zero in sequence, with the roll whose 
number is largest terminating the roll 
storage area. 


Initially, all rolls except roll 0O are 
empty and occupy no space; this.is accomp- 
lished by having the beginning and end of 
all rolls located at the same place. (Roll 
O, the- LIB .roll, is a. fixed-length roll 
which contains all of its data, initially.) 
When information is to be placed on a roll 
and no Space is available due.to a conflict 
with the next roll, rolls greater-in number 
than the roll in question are moved. down 
(to higher. addresses). to _make the space 
available. .This is accomplished by physic- 
ally moving the information on.the rolls a 
fixed number of storage locations and alt- 
ering the controls :to indicate the change. 
Thus, roll 0O never changes in size, loca- 
tion, or contents; all other rolls. expand 
to higher ‘addresses as required. = .When 
information is removed from a roll, the 
space which had been occupied by that 
information is left vacant; therefore, it 
is not necessary to move rolls for each 
addition of information. . , 

With aie eidention ef the area occupied 
by roll 0, the roll storage area actually 
consists of any ‘number of non-contiguous 
blocks of 4096 bytes of storage. The space 
required for roll 0 iS not part of one of 
these blocks. Additional blocks of storage 
are acquired by the compiler whenever cur- 
rent roll storage is exceeded. -If the 
system is unable to fulfill a request for 


roll storage, the PRESS MEMORY routine is 
entered to find roll space that is. no 
longer in use. If 32 or more bytes are 


found, the compilation continues. If fewer 
than 32 bytes are found, the compilation of 
the current program .is terminated, the 
message NO CORE AVAILABLE is printed, and 
Space is freed. If there are multiple 
programs, the next one is compiled. : 


The po laon une: ae aGEachs deserving. che 


controls and statistics maintained by the 
compiler in order to control the storage 
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the rolls of -the compiler are main- 


maintained in 


considered 3 
in the 


roll which precedes’ the 


describing the CODE roll base. 
tion requires that any 


allocation for rolls and. the euneesensng.. of 
the. seu? up" sears | 


ROLL ADR Table 


The ROLL ADR table is a 1000-byte table 
3 IEYROL. Each entry in this 
table holds the beginning address. of a 
block of storage which has been assigned to 
the roll storage area. The first address 
table is. always the . beginning 


address of roll 0. The second address is 


that of the first 4K-byte block of storage 
and, therefore, the; beginning address of 
roll 1. Initially, the last  -address 


recorded on the table is the beginning 


address of a block which holds the CODE and 


AFTER POLISH rolls, with the CODE roll 
beginning at the first location: in the 
block. 

As information is recorded on rolls 


during the operation of the compiler, addi- 
tional storage space may eventually be 
required. Whenever storage is needed for a 
CODE roll, an 
additional 4K block is requested from the 
system and its address is inserted into the 
ROLL ADR table immediately before the entry 
This inser- 
entries describing 
the CODE and AFTER POLISH rolls be moved 
down in the ROLL ADR table. The informa- 
tion on all rolls following (greater in 
number than) the roll requiring:.. the space 
is then moved down a fixed number of words. 


The roll which immediately precedes the 
CODE roll moves into the new block of 
storage. . This movement of the rolls 
creates the desired space for the. roll 


requiring it. The movement of rolls. does 
not respect roll boundaries; that is, it is 
entirely possible that any roll or.yrolls 
may. bridge two blocks of storage. - 


When additional storage Space is 
required for the AFTER POLISH roll,.a block 
is requested from the system and its begin- 
ning address is added to the bottom of the 
ROLL .ADR = table. When the. CODE roll 
requires more space, a new block is. added 
in the. same manner, the AFTER POLISH roll 
is moved down into the new block, and. the 
vacated space is: available to the CODE 
roll. ire | 

The CODE and AFTER - POLISH rolls’ are 
handled separately because the amount of 
information. which can be expected to reside 
on them makes it impractical to move them 
frequently in order to satisfy storage 
requirements for all other rolls. The CODE 
roll is also somewhat unique in-that it is 
assigned a: large amount of space: before it 
is used; that is, the AFTER POLISH roll- 


does not. begin at the same location as does 
the CODE roll. 


BASE, BOTTOM, and TOP Tables 


In order to permit dynamic allocation as 
well as to permit the use of the “push up" 
logic, tables containing the variables 
BASE, BOTTOM, and. TOP. are maintained to 
record the current status of each of the 
rolls. These variables indicate addresses 
of rolls. Information stored on rolls is 
in units of fullwords; hence, these 
addresses are. always multiples of four. 
The length of each of the tables is deter- 
mined by the number of rolls, and the roll 
number. is an index to the appropriate word 
in each table for the roll. : 


Each of the variables occupies a full- 
word and has the following configuration: 


11 4.2 3 
0 1 2 9 0 1 
a a Ro Or ee ee eh ee 1 
[Entry number]. _ ) 
| [into the... | Displacement | 
l oo {ROLL ADR ! (12 bits) 
| ee | | 
bee ee es 1 Sees eee 


The entry number. points to an entry. in the 
ROLL ADR table and, hence, to the beginning 
address of a block of roll storage. The 
displacement is a byte count from the 
beginning ofthe indicated storage block to 
the location to which the variable (BASE, 
BOTTOM, or TOP) refers. | 


It is Significant to note that the 
displacement field in these variables occu- 
pies twelve bits. If the displacement 
field is increased beyond its maximum value 
(4095), the overflow increases the entry 
number into the ROLL ADR table; this is the 


desired result, since it simply causes the 
variable to point to the next entry in the 
table ‘and effectively indicate the next 
location in the roll storage 


) area, the 
beginning of the next block. 2 3 


The first status variable for each roll, 
BASE, indicates the beginning address of 
that roll, minus four. The second vari- 
able, BOTTOM, indicates the address of the 
most recently entered word on the roll. 


If pee is completely empty, its 
BOTTOM ._ equal to its. BASE; otherwise, 
BOTTOM Ae exceeds BASE by a multiple of 
four. Figure 7 illustrates a roll which 
contains information. 
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BASE “(n) 





Pett es) a > a, ee a 
come | unused 
TOP = (n) We, |. 
~~ Se ee 
/ b--------------- 
p--------------- 
p--~----~----=-- 
|. ° K bytes 
ll: ° 
| F 
}-m- elven © 4 
portom(n)---->| 
Figure 7. gor Containing. K Bytes. of 
7 Information | 


‘When information is to be added to. a 


roll, it is stored at the address pointed 
to by BOTTOM, plus four, and BOTTOM is 
increased by four. When a word is to be 


retrieved from a roll, it is read from the 
address specified by BOTTOM, and, under 
most. circumstances, BOTTOM is reduced by 


four, thus indicating that the word is no 
longer occupied by the roll. This altera- 
tion of the value of BOTTOM is termed 


runin If the information retrieved from 
a roll is to remain on the roll as well as 
at the destination, BOTTOM is not changed. 
This operation is indicated by the .use of. 
the word "“keep" in the POP instructions. 
that perform it... : 


The current length (in bytes) of a roll 
is determined by subtracting its BASE from 
its BOTTOM. Note that this is true even 
though the entry number field appears in 
these. variables, since each increase in 
entry number indicates 4096 bytes occupied) 
by the roll. Thus, there is no limitation 
on the size of a roll from this source. 


For each roll, an additional status 
variable, called TOP, iS maintained. TOP 
enables the program to protect a portion of 
the roll from destruction, while allowing 
the use of the roll as though it were 
empty. Protecting a roll in this way is 
called reserving the roll. The contents of 
TOP (always greater than or equal to. the 
contents of BASE) indicate a false BASE for 
the roll. The area between BASE and TOP, 
when TOP does not equal BASE, cannot be 
altered or removed from the roll. Ascend- 
ing locations from TOP constitute the new, 
empty roll. 


Like BASE, TOP points to the word imme- 
diately preceding the first word into which 
information can be stored. A value is 
automatically stored in this unused word 
when the roll is reserved; the value is the 
previous value of TOP, minus the value of 
BASE and is called .the reserve mark. 
Storage of this value permits more than one 
segment of the roll to be reserved. 
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A single roll (roll n), then, containing 
K bytes of information, (where K is always 
a multiple of four) and having no reserved 
Status, has the following settings for its 
Status variables: | 


BOTTOM = BASE + K = TOP + K 


Figure 7- also 
the same roll contains L bytes reserved and 
K additional bytes of information, the 
settings of its status variables are as 
follows: 


BOTTOM = TOP + K = BASE + L + K + 4 


This roll is shown in Figure 8. Note that. 
the relationships given above are valid 
because of the structure of the BASE, 
BOTTOM, and TOP variables. 
4 bytes 
Pon ee eee 1 | 
BASE (n)----- >| | <---—unused 
| }--------------- { 
| 
}--------------- { 
| | | 
‘aaaeeasas { 
| ° | L bytes 
] @ 
}--------------- { 
| | 
}-----+--------- { 
| | 
alee ee eee te | 
TOP (n)------ >| | <---previous 
}--—~--~-----~-~ TOP-BASE 
I 
ee eee ee 
| 
eee ee 
| é 
| . K bytes 
| : 
bese Se 
| 
basa 
| 
ee ee ee eee eee 





BOTTOM (n)~-->|] 

Dea ee ee 
Roll Containing L Bytes of Re- 
served Infcrmation and K_ Bytes 
of New Information 


Figure 8. 


Special Rolls 


The WORK roll and the EXIT roll are 
special rolls in that they are not main- 
tained in the roll storage area, but rather 
appear in IEYROL with a fixed amount of 
Storage allocated to each. They are rolls 
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illustrates this roll. If. 


register 5, EXTADR, holds’ the 


GROUPS: 


in the sense that they employ the same push 
up logic which is used for the other rolls; 
however, they are not numbered, and their 
controls are, therefore, not maintained in 
the tables used for the other rolls. 


The WORK roll is used as a temporary 
storage area during the operations of the 
compiler. Because information is moved to 
and from the roll frequently it is handled 
separately from other rolls. | 


The EXIT roll warrants special treatment 
because it is used frequently in maintain- 
ing exit and entrance addresses for compil- 
er routines. | | 


The bottom of the WORK roll is recorded 
in general register 4, WRKADR; general 
address of 
the bottom of the EXIT roll. These values 
are absolute addresses rather than in the 
format of the BOTTOM variable recorded for 
other rolls. 


For a more detailed explanation of the 
WORK and EXIT rolls, see Appendix B "Rolls 
Used by the Compiler." 


CENTRAL ITEMS: The items SYMBOL 1, SYMBOL 
2, SYMBOL 3, DATA 0, DATA 1, DATA 2, DATA 3 
and DATA 4, two bytes each in length, and 
DATA 5, eight bytes in length, contain. 
variable names and constants. These items 
are called central due to the nature and 
frequency of their use. They occupy 
storage in the order listed, with DATA 1 
aligned to a doubleword boundary. 


In general, SYMBOL 1, 2, 
variable names; DATA 1 and 2 are used to 
hold real constants, DATA 3 and 4 to hold 
integer constants, DATA 1, 2, 3 and 4 to 
hold double precision and complex con- 
stants, and DATA 1, 2, 3, 4 and 5 to. hold 
double-precision complex constants. 


and 3 hold 


While the basic unit of informa- 
tion stored on rolls is a fullword, many 
rolls contain logically connected informa- 
tion which requires more than a_ singleword 
of storage. .Such a collection of informa- 
tion is called a group and always occupies 
a multiple of four bytes. A word of a 
group Of more than one word is’ sometimes 
called a rung of the group. | 


Regardless of the size of the group on a 
given roll, the item BOTTOM for the roll 
always points to the last word on the roll. 
Figure 9 shows a roll with a group size of 
twelve. 


4 bytes 7 
.-----------=+--- 1 BASE (n) 
| | Ses 

, ---------------- | TOP (n) 
| | 
| }--------------- { 
ist group < | | 
}--------------- { 
| | 
}--------------- { 
| | 
_ ) fee------------- { 
2nd group < | | 
}--------------- { 
| | 
» fe-------------- { 
| | 
}--------------- { 
3rd group < | | 
}--------------- / | 
{| <-- BOTTOM (n) 
| A ee ee eevee to J | _ 
Figure 9. Roll With a Group Size of 
Twelve 


For some rolis, the size of the group is 
not fixed. In these cases a_ construct 
called a “plex" is used. The first word of 
each plex holds the number of words in the 


plex, exclusive of itself; the remainder 
holds the information needed in the group. 
(See Figure 10. - 
4 bytes 
Peg ee NT eae 1 
BASE (n) | |<---no. words 
b> ~------------ 4 in group 
TOP (n). }------------- 4 
| 3 | 
}------------- 1. 
{( group 
Pasa hoes ---4 ( information 
) | 
}------------- { 
| a | 
|------------- { 
| | | 
}------------- { 
| | > plex 
}------------- { 
fay: | 
po-nHano-onnand 
| | 
}------------- 1 
| 2 |) 
}------------- 1 
| | > plex 
BOTTOM (n)_ | \ 
ea epee nape eo eat 5S 


Figure 10. Roll with Variable Group Size 
The assignment Of roll storage does not 
respect group boundaries; thus, groups may 
be split between two blocks’- of roll 
storage. | 


e GROUP STATS: 


respectively. 


size 
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Since the size of the group 
varies from roll to roll, this charac- 
teristic of each roll must be tabulated in 
order to provide proper manipulation of the 
roll. In addition, the groups on a roll 
are frequently searched against the values 
held in the central items (SYMBOL 1, 2, 3, 
etce,). Additional characteristics of the 
roll must be tabulated in order to provide 


for this function. Four variables tabu- 
lated in the group’ stats tables are 
required to maintain this information. 


(See Section 2 "“IEYROL Module. "™) 


The first group stats table contains a 
1-word entry for each roll. The entry is 
divided into two halfword values. The 
first of these is the displacement in bytes 
from SYMBOL 1 for a group search; that is, 
the number of bytes to the right of the 
beginning of SYMBOL 1 from which a compara- 
tive search with the group’ on the roll 
should begin. This value is zero for rolls 
which contain variable names (since these 
begin in SYMBOL 1), eight for rolls which 
contain real, double-precision, complex or 
double-precision complex constants (since 
these begin in DATA 1), and twelve for 
rolls which contain integer constants. 


The second value in the first group 
stats table is also a displacement; the 
distance in bytes from the beginning of the 
group on the roll to the byte from which a 
comparative search with the central items 
should begin. 


The second group stats table also holds 
a 1-word entry for each roll; these entries 
are also divided into two halfword values. 
The first of these is the number of conse- 
cutive bytes to be used in a comparative 
search, and refers to both the group on the 
roll and the group in the central items 
with which it is being compared. 


The second item in the second table is 
the size of the group on the roll, in 
bytes. For rolls which hold plexes, the 
value of this item is four. 


For example, the DP CONST roll, which is 
used to hold the double-precision constants 
required for the object module, has an 
8-byte group. The settings of the Group 
Stats for this roll are 8, 0, 8, and 8, 
The first 8 indicates that 
when this roll is searched in comparison 
with the central items, the search should 
begin eight bytes to the right of SYMBOL 1 
(at DATA 1). The 0 indicates that there is 
no displacement in the group itself; that 
is, no information precedes the value to be 
compared in the group. The second 8 is the 
of the value to be searched. The 
final 8 is the number of bytes per group on 


the roll. — 
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The group stats for the ARRAY roll 
(which holds the names and dimension infor- 
mation of arrays) are 0, 0O, 6, and 20. 
They indicate that the search begins at 


SYMBOL 1, that the search begins 0 bytes to 


the right of the beginning of the group on 
the roll, that the number of bytes to be 


searched is 6, and that the group 6 size on 


the roll is 20 bytes. 


Figures 11 and 12 show the two group 
stats tables containing the information on 


the DP CONST roll and the ARRAY roll 
discussed above. It should be noted that 
the information contained on these two 


tables is arranged according to roll nunm- 
bers. In other words, the group stats for 
roll 5 are in the sixth entry in the tables 
(starting with entry number 0). 


4 bytes 
(Sere toe ee 1 
------------t-- Be Ta ee ee { 
}----------- 1—---—-----—- 4 
| . | 
| - | 
| . | 
| - 0 aa a aoa qo SsSseeS sere { 
DP CONST roll--->] 8 | 04 
aaa Saori | 
a < | 
Af. : 
ie ‘ 
feeneans---- q------------ { 
ARRAY roll--->]_ 0] 0| 
}----------- 1_-_----—~--- 4 
| ° | 
‘ 
| ; 
}----------- q7----------- { 
= | — Miata oe ea Aetoee ee ed 
Figure 11. First Group Stats Table 
4 bytes 
Cg ee es 8 Servis ates arene taba 1 
}----------- }------------ { 
}----------- 1------------ j 
| ° | 
| : 
he a: | 
ee ee }-----------y------------4 
DP CONST roll--~->| — 8 8 | 
}----~-- _—— 4---—~———-—-~+~—~— 4 
| . | 
| . i 
| . 
. a er eee eee pore ciate 4 
ARRAY rolli--—-—>| es 6 | 20] 
; io aaa aa 
| ce 
| = | 
| : | 
anna areas {= { 
a ee aes ees a J 


Figure 12. Second Group Stats Table 


26 


. tions. 


of each EXIT roll group, is 


character scanning performed by the 


OTHER VARIABLES 


In addition to the _ central items, 


several other variables used in the compil- 


er perform functions which are significant 
to’ the understanding of the POP instruc- 
These are described in the follow- 
ing paragraphs. 


Answer Box 


The variable ANSWER BOX, which is. re- 
corded in the first byte of the first word 
used to hold 
the true or false responses from _ POP 
instructions. The value "true" is  repre- 
sented by a nonzero value in this variable, 
and "“false" by zero. The value is checked 
by POP jump instructions. 


Multiple Precision Arithmetic 


_ Most of the arithmetic performed in the 
compiler is fullword arithmetic. When 
double-precision arithmetic is required, 
the variables MPAC 1 and MPAC 2, four bytes 
each in length, are used as a double- 
precision register. These variables are 
maintained in main storage. 


Scan Control . 


are used in the 
first 
the compiler, Parse. 
associated with 
used in 


Several variables 
processing phase of 
Their names, and terms. 
their values, are frequently 
describing the. POP instructions. 


The variable CRRNT CHAR holds the source 
statement character which is currently 
being inspected; the variable is four bytes 
long. The position (scan arrow) of the 
current character within the input state- 
ment (its column number, where a continuous 
column count is maintained over each state- 
ment) is held in the low-order bit posi- 
tions of the fullword variable CRRNT CHAR 
CNT. : i. £ | : 


_ Non-blank characters are called "active 
characters," except when literal or IBM 
card code ..information is being scanned. 


The variable LAST CHAR CNT, which occupies 


one word of storage, holds the column 
number of the active character previous to 
the one in CRRNT CHAR. 


| me 
1234567890: 


Column number: 


po 50 T= 1, 4 

ACI) = BCL) **2 

pO 50 J=1, 5 
50 c(J+1) = AC) 


Explaueeron 
In the processing of the source module 
which contains the above statements, state- 
ment 50 iS currently being parsed. The 
current character from the input buffer is 
J. The settings of the scan control 
variables are shown in Figure 13. 
[rear a ee re ee ee ee Gee oe OES ee 1 
| (EBCDIC) J | 
Ge ee ee ee eee J 
CRRNT CHAR 
Ee ee ree gna ee ay Ve aaa Te ne re ere 1 
| 9 | 
a a a ae J 
CRRNT CHAR CNT 
(scan arrow) | 
[a a ee gs es ee ey 1 
i 4 gf. 
MS I ace ne eee a as a 4 


LAST CHAR CNT 


Figure 13. Scan Control Variables 


Flags ae: : = . 


Several flags are used in the compiler. 
These 1-word variables have two possible 
values: on, represented by nonzero, and 
off, represented by zero. The name of the 
flag indicates the Significance of the "on" 
setting in all cases. 


Quotes 


Quotes | 
ceded by a halfword character count; they 
are compared with the input data to deter- 


mine a statement type during the Parse 
phase. These constants are . grouped 
together at the end of phase 1. The 


location labeled QUOTE BASE is the begin- 
ning location of the first quote; instruc- 


are sequences of characters pre-. 


beginning location of the. 
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tions . which refer to quotes are assembled 
with address fields which are relative to 
this location. 


14 shows some of the quotes used 


Figure 

by the compiler and how they are arranged 

in storage. : | | 

4 bytes 

c----- hi i es i es a Sa a fs a a ee -—----4 
QUOTE BASE | 00 02 N D | 
}------------------- ee ete er agen ee er 4 
| 00 08 I M | 
}------------~------~------------ { 
| £E N S | 
}------------------------------ { 
| Oo N b b | 
Fo Pe ea RSet De Ce IE ea eet 4 
} 00 07 M P | 
}------------------------------ { 
aoe I c I | 
[------------------------------ { 
. 2 b b b | 
Saal Me is ee ee | 
| 00 O07 L Oo | 
| [}----------------------------- { 
| G I Cc A | 
}------------------------------ { 
| -L b b b | 
|------------------------------ { 
| . | 
| ° | 
| - | 
}------------------------------ { 
| 00 06 — F O.°| 
}------------------------------ { 
| R M A T | 
|------------------------------ { 
| : | 
| . | 
| . | 
ee Ms a a ee ee a hal aes J 

Figure 14. Quotes Used in the Compiler 


Messages 


The messages used in the compiler, which 
are also grouped together at the end of 
Phase 1, are the error messages required by 
Parse for the source module listing. The 
first byte of each message holds the condi- 
tion code for the error described by the 
message. The second byte of the message is 
the number of bytes in the remainder of the 
message. The message follows this halfword 
of information. 


The location labeled MESSAGE BASE is the 
first message; 
instructions which refer to messages are 
assembled with address fields relative to 
this location. 
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\ 


compiler in main 
phase 


COMPILER ARRANGEMENT AND GENERAL REGISTER 
USAGE - 7 


shows the arrangement of the 
storage with the Parse 
shown in detail. General registers 
that hold base locations within the. compil- 


Figure 15 


Figure 15. Compiler Arrangement -with Registers 
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General register 2, PGB2, holds’ the 
beginning address of the global jump table, 
a table containing the addresses of compil- 
er routines which are the targets of jump 
instructions. (See Appendix A for further 
discussion of this table and the way in 
which it is used.) The global jump table 
appears in each phase of the compiler and 


er are shown pointing to the locations they is labeled PROGRAM BASE 2; thus, the value 
indicate. Note that the labels CBASE and held in general register 2 is changed at 
PROGRAM BASE 2 appear in each phase of the the beginning of each phase of the 
compiler; the general registers CONSTR and compiler. 

PGB2 contain the locations of those labels 

in the operating phase. 

fy ee oe ee DN oa ne ee ye eee ee 1 

} Register | Label | Contents | 

boo aes ON i not A a en tl ee ah 4 

| | Invocation Phase | 

+ a a a a T----------- er Ss See a eS Se SS SS ee a SS Se eS 4 low 

] POPPGB--->j POP TABLE ] POP Jump Table | : } storage 
| | |------------------~-------------------------- { 

| } POP SETUP | POP Machine Language Subroutines | 

| | | |-------------------------------------------- { 

| | } Data for POP Subroutines | 

poteeae teas  Ruinipecotaceesegeiuaeeramias meet" Un ESE RPI RNG RR SESE 

| ROLLBR--->] ROLL BASE | Roll Statistics (Bases, Tops, Bottoms) | 

| | | | fe------------------------------------------- { 

| ] | Group Stats (Displacements, Group Sizes) | 

| | }----------=--------------------------------- { 

| | | WORK Roll | 

| | |-------------------------------------------- { 

] ] } EXIT Roll | 

| | }~-----------~------------------------------- 

| | ROLL ADR Table l 

| ; }-------------------------------------------- { 

| | Roll Storage | 
PRARARARARRAARPARA APA BP PSII PPSPIPPPRPPPRBPAPABPPDRARBRAROBOIUOQI(2902 YE E22QQIOEIEOaEareaeeerrorr—vr-" 

| ] | Roll Storage* | | 
}------------ {------------------ |~------------------------------------------- 

|  CONSTR--->] CBASE ] Parse Data Items | 

| | }-------------------------------------------- { 

| | ] Parse Routines | 

| | |~-----~-------------------------------------- { 

| PGB2----- >] PROGRAM BASE 2 | Parse Global Jump Table | 

| | |------------------------- ~------~----------- { 

] | | Parse Routines containing assembler | 

| ] | language branch targets | | 

| J een n nn nena nnn n= 2-2 ------------------------ { 

| } QUOTE BASE | Quotes | 

| | | —--——--—-—--—-—-— - - +--+ - 4 

| ] MESSAGE BASE } Messages | | 
_}-----+------ 1—-————-—~—-~——------ 4-~~--~~~-----~~-~-~-~-—-—-~-~---—--~~--—------------ 4 high 

| PHASE 2: Allocate | storage 
}----------------------------------~------------------------------------------ { | 
| PHASE 3: Unify | 
}-~-------------~--------------- ee eee cee cee ee ce ee ee ce ere cee ee ee ee ee ce ee ee ee ee ee ee ee ee ce re ee re ee es ee ee ee ee ee ee oe 4 

| PHASE 4: Gen | 
}--------------------------------------------~------------------------------- { 

| PHASE 5: Exit | 
}~------------~------------------~-------------------------------------------- { 

]}*Roll storage is allocated in 4K-byte blocks, beginning from the higher end] 

] of storage contiguous with Parse. Additional blocks. are obtained,. as| 

] needed, from preceding (lower) 4K-byte blocks of storage. = | 

CRE te ep tee ie IE SO ANSON BS PEC Sn Ree ae rN A RN ta MESS RC Aor ee LE TEM ree SO ee J 


Compiler routines which contain assem- 


bler language instructions and are either 
branched to by other assembler language 
instructions or which themselves perform 


internal branches, 
table. General register 2 is used as a 
base register for references to both the 
global jump table and these routines. 
Figure 15 shows this register in Parse. 


General register 3, called POPADR in the 
compiler code, is used in the sequencing of 
the POP operations. It holds the address 
of the current POP, and is incremented by 2 
as each POP is interpreted. | , 


General register 4, called WRKADR, holds 
the address of the current bottom of the 


General register 5, called EXTADR, holds 
the address of the current bottom of the 
EXIT roll. | | 


General register 6, called POPXIT, holds 
the return location for POP subroutines. 
When POPS are being 
SETUP, the return is to POP SETUP; when 
machine language instructions branch to the 
POPs, it is to the next instruction. 


register 7, called ADDR, holds 

portion of the current POP 
instruction (eight bits); it is also used 
in the decoding of the operation code 
portion of POP instructions. 


General 
the address 


General register 8, called POPPGB, holds 
the beginning address of the machine lan- 
guage code for the POP instructions and the 
POP jump table. Figure 15 shows this 
register, which is used as a base for 
references to these areas. 


General register 9, called CONSTR, holds 


the beginning address of the data referred 
to by the compiler routines. This area 
precedes the routines themselves, and is 


labeled CBASE, as indicated in Figure 15. 
This register is, therefore, used as a base 
register for references to data as well as 
for references to the routines in the 
compiler; its value is changed at the 
beginning of each phase. 


General register 10, ROLLBR, holds the 
‘beginning address of the roll area; that 
is, the beginning address of the base table 
(see Figure 15). The value in this 
register remains constant throughout’ the 
operation of the compiler. 


General register 11, RETURN, holds 
return addresses for the POP subroutines. 


The remaining general registers are used 
temporarily for various purposes in the 
compiler. 


follow the global jump. 


interpreted by POP 
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POINTERS 
Information defining a source module 
variable (its name, dimensions, etc.) # is. 


recorded by the compiler when the name of 
the variable appears in an Explicit speci- 
fication or DIMENSION statement. For 
variables which are not explicitly defined, 
this information is recorded when the first 
use of the variable is encountered. All 
constants are recorded when they are first 
used in the source module. 


All references to a given variable or 
constant are indicated by a pointer to the 
location at which the information defining 
that variable or constant is stored. The 
use of the pointer eliminates redundancy 
and saves compiler space. 


The pointer is a 


1-word value in the 
following format: : 


1 byte 1 byte 
ea miras Pace) es a hai aa aa aaa a 1 
{| TAG |OPERATOR | ADDRESS | 
ea | eee ee Oo ee J 
where: 
TAG 


is a 1-byte item whose value is repre- 
sented in two parts: MODE, occupying 
the upper four bits, indicates whether 
the variable or constant is integer, 


real, complex or logical; SIZE, indi- 
cated in the lower four bits, speci- 
fies the length of the variable or 
constant (in bytes) minus one. (See 
Figure 15.1). 
=a So ne a end 
]Value | MODE | Value | SIZE | 
}------- {------------- f---=---4----------- 
| 0 ] Integer {| 0 | 1 byte | 
] ak | Real | 1 | 2 bytes | 
| 2 | Complex | 3 | 4 bytes | 
| 3 | Logical | 7 | 8 bytes | 
] 4 {| Literal/ | F | 16 bytes | 
| | Hexadecimal | | | 
eae ynereerees ere ae nod eas See nee eee Mesh ae Sit at at ete J 


Figure 15.1 TAG Field MODE and SIZE Values 


OPERATOR 
is a i-byte item which contains’ the 
roll number of the roll on which the 
group defining the constant or vari- 
able is stored. 


ADDRESS a . 
is a 2-byte item which holds’ the 
relative address (in bytes) of the 
group which contains the information 
for the constant or variable; the 
address is relative to the TOP of the 
roll. | 
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The pointer contains all the information 
required to determine an absolute location 
in the roll storage area. The roll number 
(from the OPERATOR field). is first used as 
an index .into the TOP table. The ADDRESS 
field of the pointer is then added to the 
TOP, andthe result is handled as. follows: 


1. Its. entry “number field. “(its 12 
through .19) is used as an. index. into 
the ROLL ADR. table. . 


2. Its sea amar -field (bits 20 

through 31) is added to the base 
address found in “the ROLL. ADR table. 
The result of. step 2 is the address 
indicated by the pointer. 


OPERATOR 
and whose 
and the 


Example: -Using a pointer whose 
field’ contains the value 2 
ADDRESS field contains the value 4, 
following tables: 


ROLL ADR 
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Note: that 
and in 


the location 1024 is. determined. « 
for larger values in the pointer 


TOP, the entry number field of TOP can be 
modified by the addition of ADDRESS. In 
this case the result of the addition holds 


2 and 24 in the entry number and displace- 
ment. fields, respectively. 


Since relative addresses are recorded in 
pointers, it is not necessary to alter a 
pointer’ when the roll pointed to is moved. 
Note also that the relative address in the 
pointer may exceed 4096 bytes with no 
complication of the addressing scheme. The 
only limitation on the Size of a roll comes 
about because of the size of the ADDRFSS 
field of the pointer: 16 bits permit 
values less than 64K bytes to be 
represented. | oo 
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tion,’ 


For the purposes of object code genera- 
the mode and size of the constant or 
variable is available to influence the type 
of operations which can be employed,  Oedey 


integer or. floating, fullword, or 
doubleword. —— : 5 
DRIVERS _ 

In the generation of Polish notation 
from the source language Statements, 
"drivers" are also used. These “drivers" 


are values that are one word long and have 
the same format as the pointer. The two 
types of drivers used by the compiler are 
discussed in the following bene deee es 


Operation Drivers 


One type of driver is the operation 
driver, which indicates arithmetic or log- 
ical operations to be performed. The 
fields of the driver are: a | 


TAG 


is a i- ~byte item whose value is repre- 
sented in two parts: MODE, occupying . 
the upper four bits, indicates the 
mode of the operation, é.g., integer, 
floating-point, complex or logical; 
SIZE, indicated in the lower four 
bits, specifies the length of the 
result of the operation (in bytes) 
minus one. | * : 
OPERATOR Ss 
is a 1-byte item containing a value 
which indicates the operation to be 
performed, e.g., addition, subtrac- 
tion, etc. The values for OPERATOR 
are larger than the number of any 
roll, and hence, also serve to distin- 
guish a driver from a pointer. 
ADDRESS — 


is a 2-byte item containing a value 
which indicates the “forcing strength" 


of the operation specified by the 
driver; its values range from zero to 


ten. 


The forcing strengths associated with 
the operation drivers are given in Table 1. 


Table 1. Internal Configuration of Opera- 
eet tion Drivers 
0h a tee ee ee Doe eae ne ee 1 
| | ADDRESS | 
| ] ] (Forcing | 
|] Driver { TAG1] OPERATOR] Strength) | 
~=====-------- ----}-=-=--=-}------------4 
| Sprog? } OO | 40 {| 0O 00 ] 
~------------- }----+-------- }------------ { 
] Power } OO | 42 ] 00 O1 | 
-------------- +----}--------}------------4 
|Unary Minus | 00 | 43 | 00 02 se] 
wenn ff » acnencateteemaetontcaeted 4 
|] Multiply } OO | yy } 00 03 ] 
SSS SSS t----t--------4F ------------4 
| Divide |} OO | 45 |] 00 03 | 
Raia cL aa came ae Gast ieee aa? 
|] Add } oO | 46 } 00 O04 of 
~---~--------- 4----}--------}------------1 
| Subtract | OO | 47 | 00 04 ] 
}-------------- 4----}--------4------------4 
| GT } 00 | 48 . 4-00 05 24 
ee ee ee too et ee 
| GE {| OO | 49 | 00 05 | 
-~------------ 4----4--------}------------4 
| LT {| 00 | HA. .[-00 O5.:-...° | 
}-------------- t----}--------}------------4 
| LE | OO | 4B |} 00 05 ] 
}-------------- 4----}-------- }------------4 
] EQ — J 00 | uC } 00 05 ] 
~-------------}----}--------}------------ 4 
| NE {| OO | 4D |} 00 05 | 
}------------- —}----+-------- 1 oo ce aea 
| NOT _ | 00 | 4E | OO 06 ] 
}---------~-----+----}--------}------------ 4 
} AND | 00 | Oe |< 20.0): O07 | 
}~------------- +----}-------- }-=---------- { 
] OR | 00 |. 50 ©. 43:00 08. | 
}-------------- 4----}--------}------------4 
{Plus and Below|. nae | eI 
| Phony3 } 00 } 3F J 00 09 | 
-------------- ----}-------- }------------ | 
| EOE4 | 00 3F | 00 OA | 
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]}+The MODE and SIZE settings are placed in| 
| the driver when it is used. | | 
}2Indicates a function reference. | | 
}3Used to designate the beginning: of  an| 
].expression. | : 
|*Means “end of expression" and a 
| for that purpose. | 7 , | 
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Control Drivers 


The other type of driver ‘used in the 
generation of Polish notation is called the 
control driver. It is used to indicate the 
type of the statement. for which code is to 
be written. The control driver may also 
designate some other control function such 
aS an I/O list, an array reference, or an 


error linkage. 


The fields of the control driver differ 
from those of the operation driver in that 
zero is contained in the TAG field, 255 in 
the OPERATOR field (the distinguishing mark 
for control drivers), and a unique value in 
the - ADDRESS field. The value inthe 
ADDRESS field is an entry number into a 
table of. branches to routines that process: 
each statement type or control function; it 
is used in this way during the operations 
of .. Gen. The formats of the operation 
drivers and control drivers are given in 
enocndas He | 


Table 1 lists the operation drivers and 
the values contained in each field. The 
control drivers are given in Table 2. The 
ADDRESS field is the only field given 
because the TAG and OPERATOR fields are 
constant. All values: are represented in 
hexadecimal. | 
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Table 2. Internal Configuration of Con- 
trol Drivers (Part 1 of 2) 
eee ee eg fa ee 1 
ee | | 
| Driver | ADDRESS | 
| | | 
}----~----------------------- 4------ ------ { 
| AFDS | 8 | 
}-------------------+-------- {------------ { 
| ARRAY | 23C | 
}---------------------------- 4------------ { 
| ASSIGN l 20 
}--~---~--------------------- }------------ { 
| ASSIGNED GOTO l 1c | 
}---------------------------- }------------ { 
| ASSIGNMENT | 4 ] 
}--------------------------~- }------------ { 
|} AT l 68 | 
}---------------------------- }-------=-----4 
| BSREF | 34 | 
}~--------------------------- }------------ 4 
| CALL | 2C 
}---=------------------------ }------------ : 
| CGOTO | 18 
}--~----~-------------------- }------------ { 
| CONTINUE 28 | 
}---------------------------- 4------------ 4 
|} DATA | 3C | 
}-------------~-------------- $------------ { 
| DEFINE FILE | 44 | 
}------~--------------------- }------------ { 
| DIRECT IO | 200 | 
}---------------------------- }------------ { 
| DISPLAY ID | 74. | 
Sc acca a a fo eae ee= 4 
} DO ] 10 | 
}---------------------------- }------------ { 
| DUMMY | 68 | 
}---------------------------- 4------------ : 
| END 6 | 
}---------------------------- }------------ 4 
| END= | 20C | 
}-----------~----------------- }------------ i 
|} ERROR LINK 1 | 54 
}-~-------------------------- }------------ { 
| ERROR LINK 2 | 58 | 
}---------------------------- {---------- --4 
| ERROR LINK 3 | 5¢ 
EE a ie epee ee eee Sa ean eR Bi eer J 
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2. Internal Configuration 


of  Con- 


trol Drivers (Part Zz of 2) 


IOL DO CLOSE 


} Iie Se te i Sa a ae Se Naas rate 


IOL DO DATA 


IO List 


STANDARD PRINT UNIT 
STANDARD PUNCH UNIT 


STANDARD RZAD UNIT 


SUBPROGRAM 
TRACE OFF 


TRACE ON 


T 


ee eee : 
ADDRESS | 

| 
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234 l 
Sete S SS 4 
238 | 

Pen ae ee ee een ea | 
230 l 

il al aaah ea es er 4 
64 | 

pa a a i fc as a a { 
40 | 
Sata ae 4 
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This section describes in detail the 
Invocation phase and the five processing 
phases of the compiler and their operation. 
The IEYROL module is also described. | 


INVOCATION PHASE (IEYFORT) 


The Invocation phase is’ the compiler 
control phase and is the first and last 
phase of the compiler. (The logic of the 
phase is illustrated in Chart 00.) If the 
compiler is invoked in an EXEC statement, 
control is received from the operating 
system control program. However, control 
may be received from other programs through 
use of one of the system macro instruc- 
tions: CALL, LINK, or ATTACH. 


IEYFORT performs compiler initializa- 
tion, expansion of roll storage assignment, 
input/output request processing, and com- 
piler termination. The following para- 


graphs describe these operations in greater 


detail. 


IEYFORT, CHART 00 


IEYFORT is the basic control routine of 
the Invocation phase. Its operation is 
invoked by the operating system or by 
another program through either the CALL, 
LINK, Or ATTACH macro instructions. The 
execution of IEYFORT includes scanning the 
specified compiler options, setting the 
ddnames for designated data sets, initia- 
lizing heading information, and acquiring 
time and date information from the system. 


IEYFORT sets pointers and indicators to 
the options, data sets, and heading infor- 
Mation specified for use by the compiler. 
The options are given in 40 or fewer 
characters, and are preceded in storage by 
a binary count of the option information. 
This character count immediately precedes 
the first location which contains’ the 
option data. The options themselves are 
represented in EBCDIC. | . 


On entry to IEYFORT, general register 1 
contains the address of a group of three or 
fewer pointers. Pointer 1 of the group 
holds the beginning address of an area in 
storage that contains the execute options 
specified by the programmer (set in the 
OPTSCAN routine). Oe , 


pointer. 


compiler, each processing phase 


‘These control items are set, 
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- Pointer 2 contains the address of the 
list of DD names to be used by the compiler 
(set in the DDNAMES routine). | 


Pointer 3 contains the address of the 
heading information. © Heading data may 
designate such information as the continua- 
tion of pages, and the titles of pages. 

If the FORTRAN compiler is invoked by 
the control program (1.e., called by the 
system), pointers 2 and 3 are not used. 
However, if the compiler is invoked by some 
other source, all pointers may be used. 
The latter condition is determined through 
an interrogation of the high order bit of a 
If this bit is set, the remaining 
pointers are nonexistent. Nevertheless, 
pointers 1 and 3 may exist while pointer 2 
is nonexistent; in this case, pointer 2 
contains all zeros. 


During the operation of IEYFORT, the 


-SYSIN and SYSPRINT data sets are always 
opened through use of the OPEN macro 
instruction. The SYSLIN and SYSPUNCH data 


sets are also opened depending upon the 
specification of the LOAD and DECK options. 
The block sizes of these data sets are set 
to 80, 120, 80 and 80, respectively. These 
data sets may be blocked or unblocked 
(RECFM=F, FB, or FBA) depending upon the 
DCB specification in the DD statements. 


IEYFORT concludes the compiler initializa- 
tion process with a branch to the first 
processing phase. of the compiler, Parse 


(IEYPAR). 


From. this point in the operation of the 
calls the 
next phase to be executed. However, the 
Invocation phase is re-entered periodically 
when the compiler performs such input/ 
output operations as printing, punching, or 
reading. The last entry to the Invocation 
phase is at the completion of the compiler 
operation. 


IEYPRNT, Chart 0OA4 


IEYPRNT is the routine that is called by 
the compiler when any request for printing 
is issued. The routine sets and checks the 
print controls such as setting the line 
count, advancing the line count, checking 
the lines used, and controlling the spacing 
before and after the printing of each line. 
: 3 checked, and 
inserted into the SYSPRINT control format, 
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and the parameter information and print 
addresses are initialized for SYSPRINT. 


If there is an. error during the printing 
Operation, EREXITPR sets the error code 
resulting from the print error. Any error 
occurring. during an input/output operation 
results in a termination of 
operation. 


PRNTHEAD, Chart 01A2 


PRNTHEAD is called by IEYPRNT after it 
has been determined that the next print 
operation begins on a new page. The pro- 
gram name and the new page number placed 
into the heading format and any parameter 
information and origin addresses are 
inserted into the SYSPRINT format. If an 
optional heading is specified by the pro- 
grammer, it is inserted into the print line 
format. A PUT macro instruction is issued 
to print the designated line, and all print 
controls are aavanced for the next print 
operation. | 


ITEYREAD, Chart 0O1A4 


IEYREAD is called by the compiler at the 


time that a read operation is indicated. 
It reads input in card format from SYSIN 
using the GET macro instruction. IEYREAD 
can handle concatenated data sets. 


If an error occurs during the read 
Operation, the routine EREXITIN is called. 
This routine checks the . error code 


generated and prints the appropriate error 
message. 


IEYPCH, Chart 02A3 


When a= punch output operation is 
requested by the compiler, control is tran- 
sferred to the IEYPCH routine. The LOAD 
and DECK options are checked to determine 
what output to perform. 


Any errors: detected during output result 


in a transfer of control to the EREXITPC, 
for SYSPUNCH, or EREXITLN, for SYSLIN, 
routine. The routine sets a flag so that 


no further Sd ee is fee on Fos affected 
file. | 
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compiler | 


storage area is needed for compiler 


. Of the 


oo : 


prints 
branches to a subroutine that checks to see 


PRNTMSG, Chart. 03A1 


PRNTMSG is called when 
message is to be printed. 


any type of 
The print area 


is initialized with blanks and the origin 
and displacement controls are set. The 
message is printed in two segments; each 


segment is inserted into the print area 
after the complete message length is deter- 


mined and the length and origin of each 
segment has been calculated. Once the 
entire message has been inserted, the car- 


printing is set and 
system to 


riage control for 
control is transferred to the 
print the message. 


TEYMOR, Chart _01D1 


called when additional roll 
opera- 
This routine may be entered from any 

processing phases of the compiler. 
The GETMAIN macro instruction is issued by 


-TEYMOR is 


tion. | 


this routine and transfers control to the 
system for the allocation of one 4k-byte 
block of contiguous storage. The system 


returns to IEYMOR with the absolute address 
of the beginning of the storage block in 
general register 1. Once the requested 
storage space has been obtained, IEYMOR 
returns to the invoking phase. If the 
system is unable to allocate the requested 
storage, inactive modules of the compiler 
are deleted. Those preceding the currently 
active module are deleted first; then those 
following it are deleted, if necessary. 
Should additional space be needed after all 
inactive modules are deleted, compiler 
Operations are terminated. 

When IEYMOR returns to the 
phase with the absolute address of the 
storage block. in general register 1, the 
invoking phase then stores the contents of 
a aha 1. in ‘the ROLL ADR table. : 


invoking 


The ROLL ADR table is “used by the 
compiler to record the addresses of the 
different blocks of storage that have been 
allocated for additional roll capacity. 
The contents of the table are later used in 
IEYRETN for | of the same storage 


-IEYNOCR. 


IEYNOCR 1s. called by PRESS MEMORY 
(IEYPAR) unenedee: it is unable to obtain at 
least 32 bytes of. unused storage. IEYNOCR 
the message .NO CORE AVAILABLE, 


if there are: any source language cards to 
be disregarded, and then exits to IEYRETN. 


line, 


TESREEN CS Chart 03A2 


The compiler termination routine 
(IEYRETN) is invoked by Exit (IEYEXT) or by 
one of the input/output routines after the 
detection of an error. 


The routine first obtains the error 
condition code returned by the compiler and 
tests this value against any previous value 
received during the compilation. The com- 
piler communications area for the error 
code is set to the highest code received 
and a program name of "Main" is set in the 
event of multiple compilations. The rou- 
tine then checks general register 1 for the 
address of the ROLL ADR table. Each entry 
of the ROLL ADR table indicates the begin- 
ning Of a 4K~byte block of roll storage 
that must be released. A FREEMAIN macro 
instruction is issued for each block of 
storage indicated in the table until a zero 
entry is encountered (this denotes the end 
Of the ROLL ADR table). 


The presence of more than one_ source 
module in the input stream is checked by 
interrogating the end-of-file indication 
and the first card following this notation. 
lf another compilation is indicated, the 
card, and page count control items 
are reinitialized and all save registers 
used by the Invocation phase are restored. 
The number of diagnostic messages generated 
for the compilation is added to a total 
count for the multiple compilation and the 
Giagnostic error count is reset to zero. 
The first processing phase of the compiler, 
Parse (IEYPAR), is called and the operation 
of the compiler proceeds as described in 
the previous paragraphs and those pertain- 
ing to the processing phases. 


If another compilation is not indicated, 
a check is made to determine if there was a 


multiple compilation. If there was a_ mul- 
tiple compilation, an indication of the 
total number of diagnostic messages 


generated for all of the compilations is 
printed. Also, routine IEYFINAL closes the 
data set files used by the compiler (by 
means of the CLOSE macro instruction). The 


terminal error condition code is obtained 
and set for the return to the. invoking 
program, and all .saved registers |. are 


restored before the return is made. . 


Routine IEYFINAL also. receives control 
from other compiler routines when an input/ 
output error is. detected. ) 


eacn | 


not specified, the 


OPTSCAN determines the existence of the 
parameters specifying the compiler options. 
If options are specified, the validity of 
option is checked against the parame- 
ter table and the pointer to these options 
is set once the options have been vali- 
dated. The program name is noted depending 
upon the presence or absence of the NAME 
parameter. However, if these options are 
first pointer of the 
group of three supplied to the compiler by 
the system contains zero. 


ee ee eee ee ee oe ee ee ee ee eae ee ee ee oe 


DDNAMES scans the entries made for the 
names of the data sets to be used by the 
compiler. The entries corresponding to 
SYSN, SYSIN, SYSPRINT, and SYSPUNCH are 
checked; if an aiternate name has_ been 
provided, it is inserted into the DCB area. 


HEADOPT, Chart AC 


HEADOPT determines the existence of the 
optional heading information. If such 
information exists, its length is deter- 
mined, it is centered for printing, and 
then is inserted into the Printmsg Table, 
with pointer 3 being set. 


TIMEDAT, Chart AD 


TIMEDAT serves only to obtain the time 
and date information from the system and to 
insert the data into the heading line. 


OUTPUT FROM IEYFORT 


The following paragraphs describe the 
error messages produced during the opera- 
tion of ‘the Invocation phase. These mes- 
sages denote the progress of the compila- 
tion, and denote the condition which 
results in the termination of the compiler. 
LEYO282 NO CORE - AVALLABLE - COMPILATION 

ee TERMINATED | 


The system was unable to provide a 
YK-byte block of additional roll 
storage and PRESS MEMORY was 
entered. It, too, was unable to 

obtain space. The condition code 
is 16. 
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IEYO291 


IEYO301 


ITEYO311 


IEYO 321 


IEYO341 


IEYO35I 


-piler has 
storage, 


DECK OUTPUT DELETED 


The DECK option has been specified, 
and an error occurred during the 
process of punching the designated 
output. No error condition code is 
generated for this error. 


LINK EDIT OUTPUT DELETED | 


The LOAD option has been specified, 
and an error occurred during the 


process Of generating the _ load 
module. The condition code is 16. 
ROLL SIZE EXCEEDED > 

This message is produced when: (1) 


The WORK or EXIT roll has exceeded 
the storage capacity assigned; or 
(2) Another roll used by the com- 
exceeded 64K bytes of 
thus. making it unaddress- 
able. (This condition applies to 
all rolls 
and CODE 

code is 16. 


rolls.) The condition 


NULL PROGRAM 


This message is produced when an 
end-of-data set is encountered on 
the input data set prior to any 
valid source statement. The condi- 
tion code is 0. 


I/O ERROR [COMPILATION TERMINATED] 
XXKe oo XXX 


This message is produced when an 
input/output error is detected dur- 


ing compilation. If the error 
occurred on SYSPUNCH, compilation 
is continued and the COMPILATION 


TERMINATED portion of tne message 
is not printed. The condition code 


is 8. If the error occurred on 
SYSIN, SYSPRINT, or SYSLIN, compi- 
lation is terminated. The condi- 


tion code is 16. xxx...xxx is the 


character string formatted by the 


SYNADAF macro instruction. For an 
interpretation of this information, 
see the publication IBM _ System/360 


Operating System: Supervisor and 


Data Management Macro-Instructions, 
Form C28-6647. 


‘UNABLE TO OPEN ddname 


This message is produced when the 
required ddname data definition 
card is missing or the ddname is 
misspelled. | 7 
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except the AFTER POLISH. 


Multiple Compilations 


The following 
the end of a multiple. compilation 
to indicate the total number of 
errors that occurred. The message 
will not appear if the compiler is 
terminated because of an error con- 


message appears at 


dition or if the compilation con- 
sisted of only one main or one 
subprogram. 
*STATISTICS# NO DIAGNOSTICS THIS. 
| STEP | 
or 
*STATISTICS* nnn DIAGNOSTICS THIS 
STEP es 
where: 
nnn is the total number of diagnostic 
messages for the multiple compilation 


expressed as a decimal integer. 


PHASE 1 OF THE COMPILER: PARSE (IEYPAR) 


The first processing phase of the 
FORTRAN IV (G) compiler, Parse, accepts | 
FORTRAN statements in card format as input 


and translates them. Specification state- 
ments are translated to entries on rolls 
which define the symbols of the program. 


Active statements are translated to Polish 
notation. The Polish notation and roll 
entries produced by Parse are its primary 
output. In addition, Parse writes out all 
erroneous statements and the associated 
error messages. Parse produces a full 
source module listing when the SOURCE 


eperen is specified. 


The following Acsevipenon of Parse con- 
Sists of two parts. The first part, “Flow 
of Phase 1,“ describes the overall logic of 
the phase by means of both narrative and 
flowcharts. 


The second part, “Output from Phase 1," 
describes the Polish notation produced by 
Parse. The construction of this. output, 
from which subsequent phases produce object 
code, is the primary function performed by 
Parse. See Appendix C for the Polish 
format for each statement type. | 


source listing format and the error 
produced by Parse are also 


The 
messages 
discussed. 


The rolls manipulated by Parse are 
listed in Table 3 and are mentioned in the 
following description of the phase. At the 
first mention of a roll, its nature is 
briefly described. See Appendix B for a 
complete description of a format of a roll. 


Table 3. Rolls Used by Parse 
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Source 

Ind Var 

Polish 

Literal Const 

Hex Const 

Global 

Fx Const 

Fl Const 

Dp Const 

Complex Const 

Dp Complex 
Const. 


Temp Name 


Terap 

Error Temp 

DO Loops Open 

Error Message 

Error Char 

Init 

Xtend Lbl 

Xtend Target 
Lbl 

Array 

Entry Names 

Global Dmy 

Error 

Local Dmy 


fre er re cee nee cee eee ee eee ere ee eee ee cee ee cee oe ome anne auee ae eue= eer aus Ge ewww eee eee oe 


No. Roll Name 

Local Sprog 

29 Explicit 

30 Call Lbl 

31 Namelist Names 

32 Namelist Items 

33 Array Dimension 

35 Temp Data Name 

36 Temp Polish 

37 Equivalence 

38 Used Lib 

Function 

39 Common Data 

4Q Common Name 

4i Implicit 

42 Equivalence 

Offset 

43 Lbl 

44 Scalar 

45 Data Var 

46 Literal Temp 

53 Format 

54 Script 

55 Loop Data 

56 Program Script 

59 AT 

60 Subchk 

63 After Polish 


— ay oe ee oe ow ow owe oe om oe oe oe © ow om em om ow ae ee 
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FLOW OF PHASE 1, CHART 04 | 


START COMPILER initializes the operation 
of Parse, setting flags from the user 
options, reading and writing out (on 
option) any initial comment cards in the 
source module, and leaving the first card 
of the first statement in an input area. 
This routine concludes with the transfer of 
control to STATEMENT PROCESS. 


STATEMENT PROCESS (60631) controls the 
operation of Parse. The first routine 
called by STATEMENT PROCESS is PRINT AND 
RFAD. SOURCE. On return from that routine, 
the previous source statement and its error 


messages have been written out (as defined 


by user options), and the statement to be 
processed (including any comment cards) 
plus the first card of the next statement 


will be on the SOURCE roll. (This roll 
hoids the source statements, one character 
per byte.) STATEMENT PROCESS then calls 
STA INIT to initialize for the processing 
of the statement and LBL FIELD XLATE to 
process the label field of the statement. 





On return from LBL FIELD XLATE, if an 
error has been detected in the label field 
or in column 6, STATEMENT PROCESS restarts. 


Otherwise, STA xXLATE and STA FINAL are 
called to complete the translation of the 
source statement. On return from STA 
FINAL, if the last statement of the source 
module has not been scanned, STATEMENT 
PROCESS restarts. 3 | | 

When the last card of a source module 


has been scanned, STATEMENT PROCESS deter- 
mines whether it was an END card; if not, 
it writes a message. The routine then sets 
a flag to indicate that no further card 
images should be read, and calls PRINT AND 
READ SOURCE to write out the last statement 
for the source listing (depending on wheth- 
er the SOURCE option was specified or was 
indicated as the default condition at sys- 
tem generation time). oY 


no END card appears, two tests are 


When 
made: (1) If the last statement was an 
Arithmetic IF statement, the Polish nota- 


tion must be moved to the AFTER POLISH 
roll; (2) If the last statement was of a 
type which does not continue in sequence to 
the next statement (e.g., GO TO, RETURN), 


no code. is required to terminate the object 


module, and the Polish notation for an END 
Statement is constructed on the POLISH 
roll. If the NEXT STA LBL FLAG is off, 


indicating that the last statement was not 
of this type, the Polish notation for a 
STOP or RETURN statement is constructed on 
the POLISH roll, depending on whether the 
source module is a main program or a 
Subprogram. | 


After the Polish notation for the STOP 
or RETURN has been constructed on the 
POLISH roll, the Polish notation for the 


END statement is then constructed. 


Parse keeps track of all inner DO loops 
that may possibly have an extended range. 


Parse tags the LABEL roll entries for those 


labels within the DO loops that are poss- 
ible re-entry points from an extended 
range. These tags indicate the points at 


which general registers 4 through 7 must be 
restored. The appropriate LOOP DATA roll 
groups are also tagged to indicate to the 
Gen phase which of the inner DO loops may 
possibly have an extended range. Gen then 
produces object code to save registers 4 
through 7. | ees - 


After processing the last statement of 
the source module, a pointer to the LOOP 
DATA roll is placed on the SCRIPT roll, the 

IND VAR roll is released, and, if the 
source module was a main program, the 
routine REGISTER IBCOM (G0707) is called to 
record IBCOM as a required subprogram For 
all source modules, the information 
required for Allocate is then moved to the 
appropriate area, and the Parse phase is 
terminated. 


PRINT and READ SOURCE, Chart BA 


PRINT AND READ’ SOURCE (60837) serves 
three functions: a: | 
1. It writes out the previous’ source 


Statement and its error messages as 
indicated by user options. 
2. It reads the new source statement to 
be processed, including any comment 
cards, as well as the first card of 
the statement following the one to be 
processed. 


3. It performs an initial classification 
of the statement to be processed. 


The statement to be written out is found 
on the SOURCE roll. One line at a time is 
removed from this roll and placed in a 
120-byte output area from which it is 
written out. The new statement being read 
into the SOURCE roll is placed in an 


80-byte input area and replaces the state- 
ment being written out as space on the 
SOURCE roll becomes available. Any blank 


card images in the source module are elimi- 
nated before they reach the SOURCE roll. 
Comment cards are placed on the SOURCE roll 
exactly as they appear in the source 
module. The last card image placed on the 
SOURCE roll is the first card of the source 
statement following the one about to be 
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processed; therefore, any comment . cards 
that appear between two statements are 
processed with the statement which precedes 
them. When an END card has been read, no 
further reading is performed. | 


The initial classification of the state- 
ment. that occurs during the operation of 
this routine determines, .at most, two 
characteristics about the statement to. be 
processed: (1) If it is a statement of the 
assignment type, i.e., either an arithmetic 
or logical assignment statement or a state- 
ment function, or (2) If it is a Logical IF 
statement, whether the statement "S" (the 
consequence of the Logical IF) is~ an 
asSignment statement. Two flags are set to 
indicate the results of this classification 
for later routines. 


At the. conclusion of this routine, all 
of the previous source statements and their 
errors have been removed from the SOURCE 
roll and are written out. In addition, all 
of the statements to be processed (up to 
and including the first card of the state- 
ment following it) have been placed on the 
SOURCE roll. 


STA INIT, Chart BB 


STA INIT {(G0632) initializes for the 
Parse processing of a source statement. It 
sets the CRRNT CHAR CNT and the LAST CHAR 
CNT to 1, and places the character from 
column 1 of the source card in the variable 
CRRNT CHAR. 


It then determines, from a count made 
during input of the statement, the number 
of card images in the statement; multiply- 
ing this value by 80, STA INIT sets up a 
Variable (LAST SOURCE CHAR) to indicate the 
character number of the last character in 
the statement. 

The routine finally releases the TEMP 
NAME roll and sets several flags and 
variables to constant initial values before 
returning to STATEMENT PROCESS. 


LBL_FIELD XDLATE, Chart BC 


LBL FIELD XLATE (G0635) first saves the 
address of the current WORK and EXIT roll 
bottoms. It then inspects the first six 
columns of the first card of a statement. 
It determines whether a label appears, and 
records the label if it does. If any 
errors are detected in the label field or 
in column 6 of the source card, LBL FIELD 
XLATE records these errors for later print- 
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ing and returns to STATEMENT PROCESS 
(through SYNTAX FAIL) with the ANSWER BOX 
set to false. 


Pointers to all labels within DO _ loops 
are placed on the XTEND LBL roll. lLabels 
that are jump targets (other than jumps 
within the DO loop) are tagged to indicate 
to Gen at which points to restore general 
registers. 4 through 7. y* 4 7 


If the statement being processed is the 
statement following an Arithmetic IF state- 
ment, LBL FIELD xXLATE moves the Polish 
notation for the Arithmetic IF statement to 
the AFTER POLISH roll after adding a point- 
er to the label of the present statement to 
it. 7 


STA _XLATE, Chart BD 


Under the control of STA XLATE (G06306) 
the source module statement on the SOURCE 
roll is processed and the Polish notation 
for that statement is produced on the 
POLISH roll, which holds Polish notation 
for source statements, one statement at a 
time. Errors occurring in the statement 
are recorded for writing on the _ source 
module listing. 


The addresses of the bottoms of the WORK 
and EXIT rolls are saved. Then, if the 
statement is of the assignment type (the 
first flag set by PRINT AND READ SOURCE is 
on), STA XLATE ensures that a BLOCK DATA 
subprogram is not being compiled and falls 
through to ASSIGNMENT STA XLATE (G0637). 
If a BLOCK DATA subprogram is being com- 
piled, STA XLATE returns after recording an 
invalid statement error message. If the 
Statement is not of the assignment type, a 
branch is made to LITERAL TEST (G0640), 
which determines the nature of the state- 
ment from its first word(s), and branches 
to the appropriate routine for processing 
the statement. The names of the statement 
processing routines indicate their func- 
tions; for example, DO statements are 
translated by DO STA XLATE, while Computed 
GO TO statements are translated by CGOTO 
STA XLATE. 


With the exception of LOGICAL IF STA 
XLATE, the statement processing routines 
terminate their operation through STA XLATE 
EXIT. LOGICAL IF STA XLATE moves’ the 
second flag set by PRINT AND READ SOURCE 
(which indicates whether the statement "S" 
is an assignment statement) into the first 
flag, and calls STA XLATE as a subroutine 


for the translation of the statement "S." 
When all of the Logical IF statement, 
including "S," has been translated, LOGICAL 
IF STA XLATE also terminates through STA 
XLATE EXIT. 


(G0723) determines 
the statement are of a 


STA XLATE 
whether 


EXIT 
errors in 


severity level which warrants discarding 
the statement. If such errors exist, and 
the statement is active (aS opposed to a 
specification statement), the Polish nota- 
tion produced for the statement is removed 
and replaced by an invalid statement driver 
before a return is made to STATEMENT 
PROCESS. Otherwise, the Polish notation is 
left intact, and a return is made to 
STATEMENT PROCESS. 
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STA FINAL, Chart BE 


STA FINAL (G0633) increases the state- 
ment number by one for the statement just 
processed. It then determines whether any 
Polish notation has been produced on the 
POLISH roll; if no Polish notation is 
present, STA FINAL returns to STATEMENT 
PROCESS. | 


If the statement produced Polish nota- 
tion of a type which may not close a DO 


loop, STA FINAL bypasses the check for the 
close of a DO loop. Otherwise, STA FINAL 
determines whether the label (if there is 
one) of the statement corresponds to the 
label of the terminal statement of a DO 
loop. If so, the label pointer (or poin- 
ters, if the statement terminates several 


DO loops) is removed from the DO LOOPS OPEN 
roll, which holds pointers to DO loop 
terminal statements until the terminal 
statements are found. 


When the statement is the target of a DO 
loop, ; 
DO loops which have no transfers out of the 
loop are eliminated as extended range can- 
didates. In addition, the nest level count 
is reduced by one and the information 
concerning the array references in the 
closed loop is moved from the SCRIPT roll 
to the PROGRAM SCRIPT roll. aa 


STA FINAL then places the label pointer 
(if ait is required) on the Polish notation 
for the statement, 
adds the statement number to the Polish. 


Except when the statement just processed 
was an Arithmetic IF statement, STA FINAL 
END terminates its operation by moving the 
Polish notation for the statement to the 
AFTER POLISH roll. In the case of the 
Arithmetic IF, 
moved until the label of the next statement 
has been processed by LBL FIELD XLATE. 
When the Polish notation has been moved, 
STA FINAL returns to STATEMENT PROCESS. 
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ACTIVE END STA XLATE (G0642) is invoked 


by STATEMENT PROCESS when the END card has 


been omitted and the last statement in the 
source module has been read. If the last 
statement was not a branch, the routine 


determines whether a subprogram or a main 
program is being terminated. If it is a 
subprogram, the Polish notation for a 
RETURN is constructed; if it is a main 


program, the Polish notation for a STOP 
statement is constructed. If the last 
statement was a branch, this routine 


returns without doing anything. 


extended range checking is continued. 


and, at STA FINAL END, 


the Polish notation is not: 


PROCESS POLISH (GO844) moves a count of 
the number of words in the Polish notation 


for a statement, and the Polish notation 
for that statement, to the AFTER POLISH 
roll. | 


OUTPUT FROM PHASE 1 


The output from Parse is the Polish 
notation and roll entries produced for 
source module active statements, the roll 
entries produced for source module specifi- 
cation statements, and the source module 
listing (on option SOURCE) and error wmes- 


sages. The following paragraphs describe 
the Polish ‘notation and the source and 
error listings. See Appendix 6B for 


descriptions of roll formats. 


Polish Notation 


The primary output from Phase 1 of the 
compiler is the Polish notation for the 
source module active statements. This | 
representation of the statements is pro- 
duced one statement at a time on the POLISH 
roll. At the end of the processing of each 
Statement, the Polish notation is trans- 
ferred to the AFTER POLISH roll, where it 
is held until it is required by later 
phases of the compiler. 


The format of the Polish notation dif- 
fers from one type of statement to another. 
The following paragraphs describe the gen- 
eral rules. for the construction of Polish 
notation for expressions. The specific 
formats of the Polish notation produced for 
the various FORTRAN statements are given in 
Appendix C. 


Polish notation is a method of writing 
arithmetic expressions whereby the tradi- 
tional sequence of “operand," “operation” 
"operands," is altered to a functional nota- 
tion of “operation” "“operandz" “operand,." 
Use of this notation has the advantage of 
eliminating the need for brackets of 


various levels to indicate the order of 
operations, since any “operand” may itself 
be a sequence of the form “operation" 
"operand" “operand,” to any level of 
nesting. 

Assuming | expressions which do not 
include any terms enclosed in parentheses, 


the following procedure is used to con- 
struct the Polish notation. for ar 
expression: 
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1. At the beginning of the expression, an 
artificial driver is placed on the 
WORK roll; this driver is the Plus and 
Below Phony driver, and has a lower 

forcing strength than any arith- 
“metic or logical operator. (Forcing 
strengths are given in Table 1.) 


2. As each variable name or constant in 
the expression is encountered, a 
pointer to the defining group is 
placed on the POLISH roll. 


3.. When an operator is encountered, the 
corresponding driver is constructed 
and it is compared with the last 


driver on the WORK roll: 


ae If the current driver has a higher 
forcing strength than the driver 


on the bottom of the WORK roll 
(the "previous" driver, for the 
purposes of this discussion), the 


current driver is added to the 
WORK roll and the analysis of the 
expression continues. 


b. If the current driver has a _ forc- 
ing strength which is lower than 
or equal to the forcing strength 
of the previous driver, then: 


(1) If the previous driver is the 
Plus and Below Phony driver, 


the current driver replaces 
the previous driver on. the 
WORK roll (this situation can 


only occur when the current 
driver is an EOE driver, indi- 
cating the end of the expres- 
Sion) and the analysis of the 
expression is terminated. 


(2) If the previous driver is not 
the Plus and Below Phony driv- 
er, the previous driver is 


removed from the WORK roll and 


placed on the POLISH roll, and 
the comparison of the current 
driver. against the previous 
driver is repeated (that is, 
using the same current driver, 


this procedure is repeated 
from 3). 3 | 
The sequence of operations which occurs 
when the analysis of an expression is 
terminated removes the EOE driver from the 
WORK roll. | | 
Example 1 The expression A + B- produces 
the Polish notation vee | : 
A 
BRB. 
+ 


40. 


where: 


A represents pointer to the i aaa 
group for the eaviabic. A | 


+ represents the Ada driver. This nota- 
tion is produced from the top down; when it 
is read from the bottom up, the sequence 


described above for Polish notation is 
satisfied. 

Explanation: The following operations 
occur in the production of this Polish 
notation: 7 


1. The Plus and Below Phony driver is 
placed on the WORK roll. 


2e A: eointes: to Ais s placed on the POLISH 
roll. 


3. An Add driver is constructed and com- 
pared with the Plus and Below Phony 
driver on the bottom of the WORK roll; 
the Add driver has a higher forcing 
strength and is therefore added to the 
WORK roll (according to rule 3a, 
above). . 7 7 : = 


4. A pointer to B is placed on the POLISH 
roll. 


5. An EOE (end of: expression) driver is 
constructed and compared with the Add 
driver on the bottom of the WORK roll; 
the EOE driver has a lower forcing 
strength, and the Add driver is there- 
fore removed from the WORK roll and 
added to the POLISH roll (rule 3b2). 


6. The EOE driver is compared with the 
' Plus and Below Phony driver on the 
bottom of the WORK roll; the EOE 
driver has a lower forcing strength, 
and therefore (according to rule 3bi) 
replaces the Plus and Below Phony 
driver on the WORK roll. 


expression is 


Vs The analysis of the 
terminated and the EOE driver is 
removed from the WORK roll. The 


Polish notation for the expression is 
on the POLISH roll. 


The expression A + 


Example 25. Bsc 
produces the Polish notation | 
JA 
B 
? a 
+ 
which, read from the bottom up, is + SC B 


Ae 


Explanation: The following operations 
occur in the production of this Polish 
notation: | : 

-1. The Plus and “Below Phony driver is 


placed on the. WORK roll. 


2. A satiees to A is: “placed on the POLISH 
: Porte cas 


3. An Add driver is constructed and com- 
pared with the Plus and Below Phony 
driver; the Add driver has the higher 
forcing strength and is placed on the 
WORK roll. 


4. A pointer to B is placed on the POLISH 
; pores : 


driver is 
with the Add driver; the 
“higher forcing 


5. A Divide 
-. compared . 
Divide driver has the 
..strength and is 
roll. , 


6. A pointer to C is placed on the POLISH 
roll. 


7. An EOE driver is constructed and com- 
pared with the Divide driver; since 
the EOE driver has the lower forcing 
strength, the Divide driver is moved 

to the POLISH roll. 


8. The EOE driver iS compared with the 
Add driver; since the EOE driver has 
the lower forcing strength, the Add 
driver is moved to the POLISH roll. 


9. The EOE driver is compared with the 
Plus and Below Phony driver; since the 


FOE driver has the lower forcing 
strength, it replaces the Plus and 
Below Phony driver on the WORK roll, 


and the analysis of the expression 
terminates with the removal of one 
group from the WORK roll. a 


Example 3: The expression A / Bos aC 


produces the Polish notation 


A 

B 

/ 

Cc 
which, read from the bottom up, is-- C/ B 
A. | : , 
Explanation: The following operations 
occur in the production of this Polish 
notation: 
1. The Plus. and -Below Phony driver is 


placed on the WORK roll. 


cduseeuseed and . 


placed .on the WORK 


2. A pointer to A is prace on the POLISH 
| roll.: 


3. A Divide driver is constructed and 
compared with the Plus and Below Phony 
driver; the Divide driver has’ the 
higher forcing strength and is added 

to the WORK roll. 


4. A pointer to B is placed on. the POLISH 
. roll. 


5. A Subtract driver is constructed and 
compared with the Divide driver; the 
Subtract: driver has’ :a lower forcing 
strength, therefore the Divide. driver 

is move: to the POLISH roll. 7 


6. The Superace driver is. sconpared: with 
the Plus and Below Phony driver; the 
Subtract driver has the higher forcing 
strength and is added to the WORK 
roll. | 


7. A pointer to C is placed on the POLISH 
roll. 


8. An EOE driver is constructed and com- 
— pared with the Subtract driver; since 
the EOE driver has a lower forcing 
strength, the Subtract driver is moved 

to the POLISH roll. 


9. The ‘EOE Geter is compared with the 
Plus and: Below Phony driver; the EOE 
driver replaces the Plus. and Below 
Phony driver on the WORK roll and. the 
analysis of the expression is ter- 
minated. 


Recursion is used in the translation. of 
an expression when a left parenthesis is 
found; therefore, the term enclosed in the 


parentheses is handled aS a separate 
expression. The following three examples 
illustrate the resulting Polish notation 
when more | complicated _ expressions are 
transformed: 

‘Expression | _ Polish Notation 

1. A-B* (C+D) ~*+DCBA 

2- (A-B)/(C*D) /*DC-BA 


3. X/Z/ (X-C) +C#4¥X +*#XC/-CX/ZX 
The following should be noted with re- 
spect to the exponentiation operation: 


e Exponentiations on the same level are 
scanned right to left. Thus, the 
expression A*¥*B**C**#D is equivalent to 

the a cere cena s 


@ Two. groups are added to the POLISH roll 
to indicate each exponentiation opera- 
tion. The first of these is the Power 
driver; the second is a pointer to the 

.. group on the global subprogram roll 
(GLOBAL SPROG roll) which defines the 
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required exponentiation routine. Thus, 
the expression A ** B- produces the 
following Polish notation: 


Pointer to A. 

Pointer. to B- 

Power driver | 

Pointer to exponentiation routine 


The concept of Polish notation is 
extended in the FORTRAN IV (G) compiler to 
include not only the representation of 
arithmetic expressions, but also the repre- 
sentation of all parts of the active state- 
ments. of the FORTRAN language. The parti- 
cular notation produced for each type of 
Statement is described in Appendix C. Once 
an entire source statement has been pro- 
duced on the POLISH roll, phase 1 copies 
this roll to the AFTER POLISH roll and the 
processing of the next statement begins 
with the POLISH roll empty. : 


Source Listing 
The secondary output from Parse is the 
source module listing. If a source listing 


is requested by the user (by means of the 
option SOURCE), source module cards are 


listed exactly as they appear on the input 
data set with error messages added on 
separate lines of the listing. If no 


source module listing is requested, Parse 
writes only erroneous statements and their 
error messages. 


The following paragraphs describe the 
error recording methods used in ‘phase 1, 
the format of the source Pyorang and the 
error messages: generated. : 


ERROR RECORDING: As a rule, Parse attempts 
to continue processing source statements in 
which errors are found. However, certain 
errors are catastrophic and cause Parse to 
terminate processing at the point in the 
statement where the error occurred. 


Statements which cannot be 
properly are replaced by a 
FORTRAN error routine IHCIBERH. 


compiled 
call to the 


three techniques of 
The first of 


Throughout Parse, 
error recording are used. 
these is used when the error is not cata- 
strophic. This method records the char- 
acter position in the statement at which 
the error was detected (by means of IEYLCE, 
IEYLCT, or IEYLCF instructions) and the 
number of the error type on the ERROR roll; 
after recording. this information, Parse 
continues to scan the statement. 


The second and third cechnigues of error 
recording are used when the error detected 


4&2 


detected. The 


is catastrophic, at least to part of the 
statement being scanned. The second tech-. 
nique is a jump to an error recording 
routine, such as ALLOCATION FAIL or SUB- 
SCRIPTS FAIL, which records the error and 
jumps to FAIL. The third technique is the 
use of one of the instructions, such as 
IEYCSF or IEYQSF, which automatically jump 
to SYNTAX. FAIL if the required condition is 


not met. SYNTAX FAIL also exits through 
If the statement being processed is 


active and errors have been detected in it, 
FAIL removes any Polish notation which has 
been produced for the statement from the 
POLISH roll, replacing it with. an error 
indicator. FAIL then restores: WORK and 
EXIT roll controls to their condition at 
the last time they were saved and returns 
accordingly. 


Some translation routines modify the 
action of the FAIL routine through the use 
of the IEYJPE instruction so that FAIL 
returns immediately to the location follow- 
ing the IEYJPE instruction... The transla- 
tion routine can then resume the processing 
of the statement from that point. 





FORMAT OF THE SOURCE MODULE LISTING: Error 
information for a source module card con- 


taining errors appears on the listing lines 
immediately following that card. For each 
error encountered, a $ sign is printed 
beneath the active character preceding the 
one which was being inspected when the 
error was detected. The only exception 
would be in the case of a SYNTAX error. In 
such a case, the $ sign undermarks’ the 
character being inspected when the error is 
listing line which follows 
the printed card contains only the $ sign 
markers. 


The next line of the listing describes 
the marked errors. The errors are numbered 
within the card (counting from one for’ the 
first error marked); the number is followed 
by a right parenthesis, the error number, 
and the type of the error. Three errors 
are described on each line, for as many 
lines as are required to list all the 
marked errors on the source card. | 


The following is an illustration of the 
printed output from phase 1: 


DIMENSION ARY(200), BRY(200) CRY(5,10,10) 


1) TEYOO4I COMMA 


IF (AA + BB) Se 20, 250000 

$ 

1) IEYO10I SIZE 
-ARY(J) = BRY. 

§ § | | | 

1) ITEYOO2I LABEL 2) IEYO12I SUBSCRIPT 

GTO 30 


Maes a 
1) IEY013I SYNTAX 


ERROR TYPES: The types of errors detected 
and reported by Parse are described in the 
following paragraphs. For each error type, 
the entire message which appears on the 
source output is given; the condition code 
and a description of the causes of this 
error follows the message. 


IEYOO01I ILLEGAL TYPE: This message is 
associated with the source module statement 
when the type of a variable is not correct 
for its usage. Examples of situations in 
which this message would be given are: (1) 
The variable in an Assigned GO TO statement 
is not an integer variakle; (2) In an 
assignment statement, the variable on the 
left of the equal sign is of . logical type 
and the expression on the right side is 
not. The condition code is 8. 2 


“IEYO002I LABEL: This message appears with a 
Statement which should be labeled. and is 
not. Examples of such statements are: (1) 
A FORMAT statement; (2) The statement fol- 
lowing a GO TO statement. The condition 
code for the error is 0. 
IEYO003I NAME LENGTH: The name of a vari- 
able, COMMON block, NAMELIST, or subprogram 
exceeds six characters in length. If two 
variable names appear in an expression 
without a separating operation symbol, this 
message is produced. The condition code is 
io , | 7 | 





IEYOO4I COMMA: A comma is supposed to 
appear ina a statement and it does not. The 
condition code is 0. 

IEYOO5I ILLEGAL LABEL: The usage of a 
label is invalid for example, if an attempt 
is made to branch to the label of a FORMAT 
statement, ILLEGAL LABEL is produced. The 
condition code is 8. 


IEYO06I ‘DUPLICATE LABEL: A label appearing 
in the label field of a statement is 
already defined (has appeared in the label 
field of a previous statement). The condi- 
tion code is 8. 


able or. 
the sense that a previous. 


has established a type for the 


TEY0101 SIZE: A number used in the 


EEOO71 1D COMELICT:, the Rame.oF. 9). vert 
subprogram is used improperly, 

statement aoe a 
portion of the present statement 
nane,.. and 
the present usage is in confiict with that 
type. Examples of such situations are: 
(1) The name listed ina ge Statement 15 
the name of a variable, not. a subprogram; 
(2) A single name appears more than once in 
the dummy list of a statement function; (3) 


previous 


A name listed in an EXTERNAL statement has 


already been defined in another context. 
The condition code is 8. 

‘IEY008I__ALLOCATION: Storage assignments 
specified by a source module statement . 


cannot be performed due to an inconsistency 
between the present usage of a variable 
name and some prior usage of that name, or 
due to an improper usage of a name when it 


first occurs in the source’ module. 
Examples of the situations causing the 
error are: (1) A name listed in a COMMON 
block has been listed in another COMMON 
block; 2) A variable listed in an EQUIVA- 
LENCE statement is followed by more than 


seven subscripts. The condition code is 8. 

The statements of a source 
module are used in an improper sequence. 
This message is produced, for example, 
when: (1) An IMPLICIT statement appears as 


LEYOOSI ORDER: 


anything other than the first or second 
Statement of the source module; (2) An 
ENTRY statement 


appears within a DO ee a 
The condition code is 8. : 


source 
module does not conform to the legal values 
for its use. Examples are: (1) The size 
specification in an Explicit specification 
statement iS not one of the acceptable 
values; (2) A label which is used in a 
Statement exceeds the legal size. for a 
statement label; (3) An integer constant 1S 
too large. The condition ccde is 8. 


IEYOiiI UNDIMENSIONED: =A variable name 


indicates an array (i.e., subscripts follow 


the name), and the variable has not been 
dimensioned. The condition code is 8. 


IEY012I SUBSCRIPT: The number of ‘sub- 


scripts used in an array reference iS 
either too large or too small for _ the 
array. The condition code is 8. 


The statement or part of a 
refers does not 
If a state- 


IEYOL3I SYNTAX: 
Statement to which it 
conform to FORTRAN IV syntax. 


ment cannot be identified, this error mes- 
sage is used. Other cases in which it 
appears are: (1) A non-digit appears in 


the label field; (2) Fewer than three 


labels follow the expression in an Arith- 
metic IF statement. The condition code iS 
Ba *~ | 
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IEYO14I CONVERT: In a DATA statement or in 
an Explicit specification statement con- 
taining data values, the mode of the con- 


stant is different from the mode of the 
variable with which it is associated. The 
compiler converts the constant to the 
correct mode. Therefore, this message is 
simply a notification to the programmer 
that the conversion is performed. The 


condition code is 0. 


CARD: 


IEY015I_ NO END CARD The source module 
does not contain an END statement. The 
condition code is 0.. 

IEYO161I ILLEGAL  STA.: The statement to 
which it is attached is invalid in the 
context: in which it has been used. 
Examples of situations in which this mes- 
Sage appears are: (1) The statement S in a 
Logical IF statement (the result of the 


true condition) is a specification 
ment, a DO statement, etc.e; 2) An ENTRY 
statement appears in the source module and 
the source module is not a subprogram. The 
condition code is 8. 


TEYO17I ILLEGAL STA. WRN A RETURN I 
statement appears in any source module 
other than a SUBROUTINE subprogram. The 


condition code is 0. 


IEYO18I NUMBER ARG: A reference to a 
jibrary subprogram appears with the in- 
correct number of arguments specified. 


The condition code is 4. 


IEYO27I CONTINUATION CARDS DELETED: More 
than 19 continuation lines were read for 1 
statement. All subsequent lines are 
skipped until the beginning of the next 
statement is encountered. The condition 
code is 8. 


ITEYO331I COMMENTS DELETED: More than 30 
comment lines were read between the initial 
lines of 2 consecutive statements. The 
31st comment line and all subsequent. com- 
ment lines are skipped until the beginning 
of the next statement is encountered. 
(There is no restriction cn the number of 
comment lines preceding the first state- 


ment.) The condition code is 0. 
IEYO036I ILLEGAL LABEL WRN: The label on 


this nonexecutable statement has no _ valid 
use beyond visual identification, and may 
produce errers in the object module if the 


same label is the target of a branch-type 
statement. (Only branches to executable 
statements are valid.) This message is 


produced, for example, when an END state- 
ment is labeled. The message is issued as 
a warning only. The condition code is 4. 
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state- _ 


produced. It 


IEY0371_PREVIOUSLY DIMENSIONED WRN.: The 
array flagged has been previously dimen- 
Sioned. The dimensions that were given 
first are used. Examples of this error are 


(1) a DIMENSION statement defining an array 


with a subsequent COMMON statement defining 


the same array with new dimensions, or (2) 
array dimersions specified ina Type state- 
ment and also. in a subsequent DIMENSION 


and/or COMMON statement. The condition 
code is 4&,. 
IEYO0381I SIZE WRN.: A variable has data 





initializing values that exceed the size of 


the scalar, the array, or the array ele- 
ment. Examples of this error are (1) the 
specification REAL A/‘ABCDE'/ where A has 


not been previously dimensioned (i.e., A is 
a scalar), or (2) the specification | 
DATA A(1)/7H ABCDEFG/ where A  has_ been 
previously dimensicned. The condition code 
is 4. 


PHASE 2 OF THE COMPILER: ALLOCATE (IEYALL) 


Phase 2 of the compiler performs the 
asSignment Of storage for the variables 
defined in the source module. The results 


‘of the allocation operations are entered on 


tables which are left in storage for the 
next phase. In addition, Allocate writes 
(on option) the object module ESD cards, 
the TXT cards for NAMELIST tables, Literal 
constants, and FORMAT statements, and pro- 
duces error messages and storage maps 
(optionally) on the SYSPRINT data set. 


The following paragraphs describe the 
operations of Allocate in two parts. The 
first part, “Flow of Pnase 2," describes 
the overall logic of the phase by means of 
Narrative and flowcharts. 


The second part, “Output from Phase 2," 
describes the error messages and memory 


Maps which are produced on the source 
module listing during the operation of the 
phase, as well as the ESD and TxT cards 


also describes the types of 
error detection performed during Allocate. 


Rolls manipulated by Allocate are listed 
in Table 4, and are briefly described in 
context. Detailed descriptions of roll 
Structures are given in Appendix B. 
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4. Rolls Used by Allocate — 


Roll Name 


Source 


Literal Const 
Global Sprog 


Temp 


Do Loops Open 


Init 

Equiv Temp 
Equiv Hold 
Base Table 
Array 


Dmy Dimension 


Entry Names 
Global Dmy 
Error Lbl 
Local Dmy 
Local Sprog 
Explicit 


Error Symbol 
Namelist Names 
Namelist Items 
Branch Table 


Equivalence 
Byte Scalar 
Used Lib 
Function 
Common Data 


-~ 


Roll Name 


Halfword 
Scalar 

Common Name 
Implicit 
Equivalence 
Offset 

Lbl 

Scalar 

Data Var 
Common Data 
Temp 

Namelist 
Allocation 
Common Area 

Common Name 
Temp 

Equiv 
Allocation 
Common 
Allocation 
Format 
Subchk 

General 
Allocation 
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Section 2: 


Compiler Operation 


4.1 














‘FLOW OF PHASE 2, CHART 05 


_ START ALLOCATION (G0359) . controls the 
operation of the Allocate phase. The pri- 
mary function of this routine is to call 
‘the subordinate routines which ectnaliy 
perform the operations of the phase. | 


of Alliccate is divided 
into three parts: the first part performs 
initialization; the second part (called 
bass 1) makes an estimate of the number of 
base table entries required to accommodate 
the data in the object module; the third 
part actually assigns storage locations for 
the object module components, leaving indi- 
cations of the assignment in main storage 
for use by Subsequent phases. 7 


The operation 


‘The first part of Allocate's operation 
is performed by calling the routines ALPHA 
LBL AND L =  SPROG, PREP EQUIV AND PRINT 
ERRORS, BLOCK DATA PROG ALLOCATION, PREP 
DMY DIM AND PRINT ERRORS, FPROCESS DO LOOPS, 
PROCESS LBL AND LOCAL SPROGS, BUILD PROGRAM 
-ESD, ENTRY NAME ALLOCATION, = COMMON 
ALLOCATION AND OUTPUT, and shad ALLOCATION 
FRINT ERRORS. 7 | pee a 


After veturh ever EQUIV ALLOCATION | PRINT. 


-ERRORS, START ALLOCATION initializes for 
and begins pass 1. The variable PROGRAM 
PREAK, which is used to maintain the rela- 
tive address being assigned to an object 
module component, is restored after being 
destroyed during the allocation of COMMON 
and EQUIVALENCE. The groups in the BASE 
TABLE roll (which becomes the object module 
base table) are counted, and the value ten 
s added to this count to provide an 
estimate of the size of the ‘object module 
base table. The BASE TABLE roll is then 
reserved so that groups added to the roll 
can be separated from those used in the 
‘count. The value one is assigned to the 
variable AREA CODE, indicating that storage 
to be assigned is all relative to the 
keginning of the object module and carries 
its ESD number. 3 : 
when these operations are complete, 
START ALLOCATION calls EASE AND BRANCH 
TABLE ALLOC, and upon return from this 
routine again increases the variable 
PROGRAM BREAK by the amount of storage 
allocated to EQUIVALENCE. START ALLOCATION 
continues its operation by calling BUILD 
ADDITIONAL BASES, PREP NAMELIST, SCALAR 
ALLOCATE, ARRAY ALLOCATE, PASS 1 .GLOBAL 


SPROG ALLOCATE, SPROG ARG. ALLOCATION, 
LITERAL CONST ALLOCATION and. FORMAT 
ALLOCATICN. vis 

After the operation of FORMAT 


ALLOCATICN, the last part of Allocate is 
begun. The variable PROGRAM BREAK is re- 
initialized to the value it was assigned 


added by pass 1; again, five 


‘provide for data values which 


SPROG roll to the DATA VAR roll. 


prior to pass 1. The BASE TABLE roll 
groups are counted to determine the total 
size of the roll after groups have been 
extra  gqroups 
are added to the count to 
h will appear 
but which are not yet 


(or ten words) 


in the object module, 
defined. The PASS 1 FLAG is then turned 
orf, and START ALLOCATION calls DEBRUG 
ALLOCATE, ALPHA SCALAR ARRAY AND SPROG, 
BASE AND BRANCH TABLE ALLOC, GLOBAL SPROG 
ALLOCATE, SPROG ARG ALLOCATION, EQUIV MAP, 
SCALAR ALLOCATE, ARRAY ALLOCATE, BUILD 
NAMELIST TABLE, LITERAL CONST ALLOCATION, 
and NOR ALLOCATION. 


At RELEASE ROLLS, START ALLOCATION con-~ 
cludes its operation by releasing rolls, 
increasing the PROGRAM BREAK to ensure that 
the next base begins on a doubleword pboun- 
dary, and calling CALCULATE BASE AND DISP 
and BUILD ADDITIONAL BASES in order to 
guarantee that at least three bases are 
allotted for the TEMP AND CONST. roll. 


After this calculation, Allocate prepares 


for and relinquishes control to Unify. 


ALPHA LBL AND L SPROGS, Chart CA 


This routine (G0543) is the first rou- 
tine called by START ALLOCATION. It moves 


the binary labels from the LBL roll and the 


from .the LOCAL 
3 The order 
of the labels and: statement function names 


statement function names 


on their respective rolis is maintained, 
and the location on the DATA VAR roll at 
which each begins is recorded. The names 
are moved because Allocate destroys them in 
storing allocation information, and Exit 
needs them for een the Cbject module 
LSSE end: , . . | | 


ALPHA SCALAR ARRAY AND SPROG, Chart CA 


This routine moves the names of scalars, 
arrays, and called subprograms to the DATA — 
VAR roll from the rolls on which they are 
placed by Parse. The order of names is 
preserved and the beginning location for 
each type of name on the DATA VAR roll is 
saved. a * : 
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3 Subscript information on the EQUIVALENCE 
OFFSET roll (which indicates the subscripts 
used in EQUIVALENCE statements) in the 
source module) is used by this routine 
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(G0362) to calculate the relative ad- 
dresses of array elements referred to in 
statements. (Pointers to the EQUIVALENCE 
CFFSET roll are found on the EQUIVALENCE 
roll for all subscripted references in 
FQUIVALENCE statements. ) The addresses 
computed are relative to the beginning of 
the array. When an array reference in a 
source module EQUIVALENCE statement is out- 
Side the array, designates an excessive 
number of dimensions, or specifies too few 
dimensions, 

this routine. 





BLOCK DATA PROG ALLOCATION, Chart CC 


This routine (G0361) controls the allo- 
cation 
DIMENSION, EQUIVALENCE, and Type statements 
in a BLOCK DATA subprogram. Since all data 
specified in EQUIVALENCE must be allocated 
under COMMON, this routine registers an 
error upon encountering on the EQUIVALENCE 
roll. The routine terminates with a jump 
to RELEASE RCLLS (G0360), which, in turn, 
terminates the Allocate phase. 


PREP DMY DIM AND PRINT ERPCRS, Chart CD 


ES EA TERS DEAS STE NSD 


routine (G0365) ccnstructs the DMY 
pointer to the 


This 
DIMENSION roll, placing a 
ENTRY NAMES 


ne ie EE ree EE OT 


with which a dummy array is connected, and 


a pointer to the array for each dummy array 
containing a dummy dimension. 


constructed, this 
each array having 


Before the roll is 
routine’ ensures) that 
dummy dimensions is itself a dummy, and 
that each dummy dimension listed for the 
array is either in COMMON or is a global 


dummy variable in the same call. If any of 
these conditions are not satisfied, error 
messages are written. 
PROCESS DO LOOPS, Chart CE 

This routine (G0371) inspects the DO 
LOOPS OPEN roll for the purpose of deter- 
mining whether DO loops opened by the 


source module have been left unclosed; that 
is, whether the terminal statement of a DO 
loop has been omitted from the _ source 
module. The DO LOOPS CPEN roll holds 
pointers to labels of target statements for 
DO loops until the loops are closed. If 
any information is present on this roll, 
loops have been left unclosed. 
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an error message is printed by 


PRANCH TABLE 


of data specified in DATA, COMMON, | 


On encountering information on the DO 
LOOPS OPEN roll, this routine records’ the 
undefined labels for listing as DO loop 
errors, and (on option) lists them It 
also sets the high order bit of the TAG 
the undefined label to zero; this indicates 
to Gen that the loop is not closed. 


~(G0372) constructs the 
roll, which is to become the 


This routine 


object module branch table. The routine 
first processes the LBL roll. For each 
branch target label found on that roll, a 


new BRANCH TABLE roll group is constructed, 


and the label on the LBL roll is replaced 
with a pointer to the group constructed. 
Undefined ilabels are also detected and. 


printed during this process. 


When this operation is complete, the 


all statement functions) is inspected, and 
for each statement function, a group is 
added to the BRANCH TABLE roll, and part of 
the statement function name is placed with 
a pointer to the constructed group. 
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This routine (G0374)  constructs9= and 
punches the ESD cards for the object module 
itself (the program name) and for’ each 
ENTRY to the object module. It also 
assigns main storage locations to the 
object module heading by increasing the 
PROGRAM BREAK by the amount of storage 
required. 


{See CREP CRED GRee CES EEE ence Gk > CEECNEED GEE Cae COED Eee ee CaS Gree GEE ee oe One) CE ee oe ee ee 


This routine (G0376) does nothing if the 
source module is other than a FUNCTION 
subprogram. If, however, the source module 
is a FUNCTION, this routine places’ the 
names of all ENTRYS to the source module on 
the EQUIVALENCE roll as a single 
EQUIVALENCE set; it also ensures that the 
ENTRY name has been used as a scalar in the 


routine. If the variable has not been 
used, an appropriate error message is 
printed and the scalar variable is defined 


by this routine. 


COMMON ALLOCATION AND OUTPUT, Chart CI 


This routine (G0377) allocates all COM- 
MON storage, one block at a time, generat- 
the name, base pointer, and displacement 
for all COMMON variables) in the process. 
Groups are added to the BASE TABLE roll as 
they are required to provide for references 
to variables in COMMON. The ESD cards for 
COMMON are constructed and written out. 
All errors in COMMON allocation are written 
on the source listing and the map of COMMON 
storage is also written (on option). 


EQUIV ALLOCATION PRINT ERRORS, Chart CK 


This routine (G0381) allocates storage 
for EQUIVALENCE variables, creating the 
EQUIVALENCE ALLOCATION roll in the process. 
For each variable appearing in an EQUIVA- 
LENCE set, except for EQUIVALENCE variables 
which refer to COMMON (which have been 
removed from the EQUIVALENCE roll during 
the allocation of COMMON storage), the name 
of the variable and its address are 
recorded. 


The information pertaining to EQUIVA- 
LENCE sets is stored on the EQUIV ALLOCA- 
TION roll in order of ascending addresses. 
Required bases are added to the BASE TABLE 
roll, and all remaining EQUIVALENCE error 
are printed. | 


BASE _AND_ BRANCH TABLE ALLOC, Chart CL 


This routine (G0437) assigns main 
storage for the object module save area, 
base table, and branch table. The required 


base table entries are added as needed, 
PROGRAM BREAK 1S increased, and the base 
pointer and displacement for each of these 
areas is recorded in a save area for use by 
Gen. During pass 1 of Allocate, this 
assignment of storage is tentative and 
depends on the estimate of the size of the 
base table. The second time this routine 
is operated, the actual number of base 
table entries required in the object module 
has been determined by pass 1 and the space 
allocation is final. 


SCALAR ALLOCATE, Chart CM 


Each group on the SCALAR roll is 
inspected by this routine (G0397), which 
defines all nonsubscripted variables. It 


its size: 


Storage for the variables listed 
on the roll, except for those which are in 
COMMON or members of EQUIVALENCE sets. The 
first time SCALAR ALLOCATE operates, it 
determines the number of base table entries 
required to accommodate references to the 
object module scalar variables. The infor- 
mation on the SCALAR roll is not altered, 
nor is any other roll built or modified by 
the routine. 4 


allocates 


At the second operation of the routine, 
the SCALAR roll is modified, and the actual 
storage locations (represented by the base 
pointer and displacement) to be occupied by 
the scalar variable are either computed and 
stored on the SCALAR roll or copied from 
the COMMON or EQUIV ALLOCATION roll to the 
SCALAR roll. 


All "call by name" dummy variables are 
placed on the FULL WORD SCALAR roll; as 
each remaining scalar is inspected, its 
mode is determined. If it is of size 8 or 
16 (double-precision real or Single- or 
double-precision complex), storage is allo- 
cated immediately. If the variable does 
not require doubleword alignment, it is 
moved to one of three rolls depending on 
FULL WORD SCALAR, HALF WORD 
SCALAR, Or BYTE SCALAR. 

When all groups on the SCALAR roll have 
been processed in this manner, the 
variables on the FULL WORD SCALAR roll, 
then the HALF WORD SCALAR roll, then the | 
BYTE SCALAR roll are assigned storage. The 
map Of scalars is produced (on option) by 
this routine. 


ARRAY ALLOCATE, Chart CN 


This routine (G0O401), like SCALAR ALLOC- 
ATE, is called twice by START ALLOCATE. 
The first time it is called, it determines 
the number of base table entries required 
for references to the object module arrays. 
The second time the routine is operated, it 
actually assigns storage for the arrays, 
and records the appropriate base pointer 
and displacement on the ARRAY roll. 


As each array name is found on the ARRAY 
roll, it is compared with those on the 
COMMON, EQUIV, and GLOBAL DMY rolls. For 
COMMON and EQUIVALENCEd arrays, the alloca- 
tion information is copied from the appro- 
priate roll. Since all dummy arrays are 
Ycall by name" dummies, dummy array groups 
are always replaced with pointers to the 
GLOBAL DMY roll. For each array to be 
assigned storage, new base table entries 
are constructed as required. In no case is 
more than one base used for a Single array. 
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... Since arrays are. allocated in the . order 
of their. appearance, some unused storage 
space may appear between consecutive arrays 
due to: the required: alignment. The array 
map -. is produced -. (on. option) by .this 
routine. | igs eh ate Sie ea 
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PASS 1 GLOBAL SPROG ALLOCATE, Chart CO. 


. This routine (G0O402) counts the groups 
on the GLOBAL SPROG and USED LIB FUNCTION 
rolls (which hold, respectively, the non- 
library: and ..library  subprogram names 
referred to in the source: module) to deter- 
mine the number. of. base table. entries 
required for references to the subprogram 
addresses region of the object module. The 
required BASE TABLE roll groups are added. 


S 


PROG ARG ALLOCATION, Chart CP 


is routine (G0442) adds the number of 
arguments to subprograms (and thus, the 
number of words in the argument list area 
of the object module) to the PROGRAM BREAK, 
thus allocating storage for this portion of 
the object module. BASE TABLE roll groups 
are added as required. — 


This 


PREP NAMELIST, Chart CQ 


This routine (G0443) determines the 
amount of main storage space required for 
each object module NAMELIST table. The 
NAMELIST ALLOCATION roll is produced during 
this routine's operation; it contains, for 
each NAMELIST data item, the name of the 
item and a pointer to the SCALAR or ARRAY 
roll group defining it. If any data name 
mentioned in a NAMELIST is not the name of 
a scalar or array, the appropriate error 
message iS printed by this routine. 


The NAMELIST NAMES roll is left holding 
the NAMELIST name and the absolute location 
of the beginning of the corresponding 
object module NAMELIST table. Required 
BASE TABLE roll groups are added by this 
routine. | . ie 


LITERAL CONST ALLOCATION, Chart CR 


This routine (GO444) is called twice by 
START ALLOCATION. Its first operation de- 
termines the number of BASE TABLE roll 
groups which should be added to cover the 
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module | 


module. 


literal constants in the object module. 
The second operation of the routine 
actually assigns storage for all literal 
constants (except those appearing in source 
DATA and PAUSE statements) and 
writes (on option) the TXT cards for them. 


FORMAT ALLOCATION, Chart CS — 


This routine (G0445) is called twice by 
START ALLOCATION. The first time it. is 
called is during the operation of pass 1. 
In pass 1, the PROGRAM BREAK is’ increased 
by the number of bytes occupied by each 
FORMAT. - | | 


‘The second time that’ FORMAT ALLOCATION 
is called, each FORMAT is written out and 


the FORMAT roll is rebuilt. The base and 
displacement information and a pointer to 
the label of the FORMAT statement are the 


contents of the rebuilt FORMAT group. The 
map Of the FORMAT statements used in the 
object module is also written out. (on 
option) by this routine. 1s 2 


EQUIV MAP, Chart CT 


This routine (G0441) adjusts the values 
on tne EQUIVALENCE ALLOCATION roll to the 
corrected (for the correct allocation of 
the base table, since this routine operates 
after the completion of pass 1) base point- 
er and displacement, and constructs the 
BASE TABLE roll groups required. The map 
of EQUIVALENCE variables is produced (on 
option) by this routine. 


GLOBAL SPROG ALLOCATE, Chart CU 


This routine (G0403) goes through the 
GLOBAL SPROG and USED LIB FUNCTION rolls, 
inserting the base pointer and displacement 
for each of the subprograms listed there; 
this is the allocation of storage for the 
subprogram addresses region of the object 
The ESD cards for the subprograms 
are written, the required BASE TABLE roll 
groups are added, and a list of the subpro- 
grams called is produced (on option). : 


BUILD NAMELIST TABLE, Chart _CV 


This routine (G0405) operates after pass 
1 of Allocate. It uses the NAMELIST NAMES 
roll in determining the base and displace- 


each NAMELIST reference in the 
The BASE TABLE roll groups 
are added as required. ‘The PRCGRAM BREAK 
is increascd as indicated, and the tTxT 
cards are written out according to the base 
and displacement calculations for each 
entry on the NAMELIST: ALLOCATION roll. A 
map of the NAMELIST tables is produced (on 
option) by this routine. 


ment for | 
source module. 


This routine (G0438) is called whenever 
it may be necessary to construct a new BASE 
TABLE roll group. It determines whether a 
new base is required and, if so, constructs 
it. | | | 


processes the 


This routine (G0545} | 
information on the INIT and SUBCKK rolls, 
marking the groups on the SCALAR, ARRAY, 


and GLOBAL DMY rolls which define the 
variables listed. When all the information 
on the SUBCHK roll has been processed, the 
routine returns. | | 


OUTPUT FROM PHASE 2 


The following paragrarhs describe the 
output from Allocate: error messages, 
maps, and cards. Allocate alse produces 


roll entries describing the assignment of 
Main storage. See Appendix B for descrip- 
tions of the roll formats. 


The source module listing, with error 
indications and error messages for the 
errors detected during initial processing 
of the source statements, is produced by 
phase 1 of the compiler. Certain program 
errors can occur, however, which cannot be 
detected until storage allocation takes 
place. These errors are detected and 
_ reported (if a listing has been requested), 
at the end of the listing by ALLOCATE; the 


error messages are described in the follow-. 


ing paragraphs. 


FUNCTION ERROR: When the program being 
compiled is a FUNCTION subprogram, a_ check 
is made to determine whether a scalar with 
the same name as the FUNCTION and _ each 


either Cor both) OM 
an EQUIVALENCE statement which refers to 


COMMON, 


ENTRY is defined. If no such scalars are 
listed on the SCALAR roll, the message » 


IEYOL9I FUNCTION ENTRIES UNDEFINED _ 


is written on the source module listing. 
The message is followed by a list of the 
undetined names. The condition ccde is 4, 


COMMON __ ERRORS Errors of two types can 
exist in the definitions of EQUIVALENCE 
sets which refer to the COMMON area. The 
first type of error exists because of a 
contradiction in the allocation specified, 
e.g., the EQUIVALENCE sets (A,B(6),C(2)) 
and (B(8),C(1)). The second error type is 
due to an attempt to extend the beginning 
of the COMMON area, aS in COMMON A,B,C and 
ECUIVALENCE (A,F(10)). . | . 


COMMON _ERRORS: 


An additional error in the assignment of 
COMMON storage occurs if the source program 
attempts to allocate a variable to a loca- 


tion which does not fall on the appropriate 


boundary. Since each COMMON block is 
assumed to begin on aé_éedouvle-precision 
boundary, this error can be produced in 


the COMMON statement = and 


When each block of COMMON storage has 


been allocated, the message 
IEY020I COMMON BLOCK / / ERRORS 


is printed if any error has been detected 
(the block name is provided). The message 
is followed by a list of the variables 
which could nat be allocated due to the 
errors. The condition code is 4. 


Unclosed DO Loops 


If DO loops are initiated in the source 
module, but their terminal statements do 
not exist, Allocate finds pointers to the 
labels of the nonexistent terminal state- 
ments on the DO LOOPS OPEN roll. If 
pointers are found on the roll, the message 


IEY021I UNCLOSED DC LOOPS 


is printed, followed by a list of the 
labels which appeared in DO statements and 
were not defined in the source module. The 
condition code is 8. oo | 
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UNDEFINED LABELS: If any lakels are used 
in the source module but are not defined, 
they constitute label errors. Allocate 
checks for this situation. At the conclu- 


sion of this check, the message 
IEYO022I UNDEFINED LABELS 
If there are undetined labels 


they are listed 
message. The 


is printed. 
used in the source module, 
on the lines following the 
condition code is 8. 


EQUIVALENCE ERRORS: Allocation errors due 


to the arrangement of EQUIVALENCE state- 
ments which do not refer to COMMCN 
variables may have two causes. The first 


of these is the conflict between two EQUIV- 
ALENCE sets; for example, (A,B(6),C(3)) and 
(B(8),C(1)). 


The second is due to incompatible boun- 
dary alignment in the EQUIVALENCE set. The 
first variable in each EQUIVALENCE set is 
assigned to itsS appropriate Loundary, and a 
record is kept of the size of the variable. 
Then, as each variable in the set is 
processed, if any variable of a greater 
size 
moved 
encountered 


accordingly. If any variable is 
of the size which caused the 
last alignment, or of lower size, and that 
variable is not on the appropriate boun- 
Gary, this error has occurred. 


If EQUIVALENCE errors of either of these 
types occur, the message 


IEY023I EQUIVALENCE ALLOCATION ERRORS 


is printed. The message is followed by a 
list of the variables which could not be 
allocated according to source module speci- 
fications. The condition code is 4. 


Another class of EQUIVALENCE error is 
the specification, in an ECUIVALENCE set, 
of an array element which is outside the 
array. These errors are summarized under 
the heading 


IEYO24I EQUIVALENCE DEFINITION ERRORS 
condi- 


on the source module a The 
tion code is 4. 


DUMMY DIMENSION ERRORS: If variables spe- 
cified as dummy array dimensions are not in 
COMMON and are not global dummy variables, 
they constitute errors. These are summa- 
rized under the heading : Oh ide 
TEYO25IT DUMMY DIMENSION ERRCRS 

on the source module listing. The 
tion code is 4. : 
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BLOCK DATA ERRORS: 


COMMON MAP: 


requires alignment, the entire set is. - 


condi- 


If variables specified 
within the BLOCK DATA subprogram have not 
also been defined as COMMON, they consti- 
tute errors. The message 

IEYO26I BLOCK DATA PROGRAM ERRORS 

is produced on the source module listing 
followed by a summarization of the 


variables in error. The condition code is 
4, 


Allocate produces the storage maps de- 
scribed below during its operations; these 
mapS are printed only if the MAP option is 
specified by the programmer. 


The map Of each COMMON block 
is produced by Allocate. The map is headed 


by two title lines; the first of these is 


COMMON / name / MAP SIZE n 
and the second is the pair of words 
SYMBOL LOCATION 


printed five times across the line. The 
title lines are followed by a list of the 
variables assigned to the COMMCN block and 
their relative addresses, five variables 
per line, in order of ascending relative 
addresses. The name contained within the 
Slashes is the name of the COMMON block. 
The amount Of core occupied by the _ block 
(n) is given in hexadecimal and ECPEGSEUES 
the number of bytes occupied. 
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Ailocate prints a list of the subpro- 
grams called by the source module being 
compiled. This list is printed only if the 
MAP option is specified by the programmer. 
The suhbprogram list is headed by the line 


SUBPROGRAMS CALLED 


and contains the names of the subroutines 
and functions referred to in the source 
module. 
SCALAR _MAP: The scalar map is produced by 
Allocate and consists of -two title lines, 
the first o* which reads 


SCALAR MAP 


and the second of which is identical to the 
second title line of the COMMON maps. The 


title is followed by a list of the non- 
COMMON scalar variables, five variables per 
line, and their relative addresses, in 
crder of ascending relative addresses. 

title line of the 


ARRAY MAP: The first 


array map reads 
ARRAY MAP 


In all other respects, the 
identical to the scalar map. — 


array map is 


EQUIVALENCE MAP: The first title line of 
the map of ECUIVALENCE sets reads 


EQUIVALENCE CATA MAP 


The second line for both maps is’ standard. 
The variables listed in the EQUIVALENCE map 
are those not defined as COMMON. 

NAMELIST MAP: This map shows the locations 
of the NAMELIST tables. The first title 
line reads 


NAMELIST MAP 


and the second line is standard. The 
symbol listed is the NAMELIST name asso- 
Ciated with each of the tables. 


FORMAT MAP: 
locations of FORMAT staterents. 
title line is 


This map gives the labels and 
The first 


FORMAT STATEMENT MAP 


and the second title is the same as. the 
others described. The symkol listed is the 
label of the FORMAT statement. 


Cards Produced by Allocate 


Allocate produces both ESD and tTxT 
cards, provided that a DECK option or a 
LOAD option has been specified by the 
programmer. All ESD cards required by the 
object module are produced during this 
phase. These include cards for the CSECT 
in which the object module is contained for 
each COMMON block and for each subprogram 
referred to by the object module. 


The ESD cards that. are produced by 
Allocate. are. given in the nottowang:< order 
according to meee , 


ESD, ‘type 0 ~ contains the name of the 
program and indicates the begin- 
ning of the object module. 


in general registers, 


ESD, type 1 - contains the entry point toa 
SUBROUTINE or FUNCTION subpro- 
gram, .Or the name specified in 
the NAME option, or the name 
MAIN. The name designated on the 
card indicates where control is 
given to begin execution of the 


module. 


ESD, type 2 - contains the names of subpro- 
: grams referred to in the source 
module Dy CALL statements, 
EXTERNAL statements, explicit 
function references, and implicit 

function references. 


type 5 - contains information about 


each COMMON block. 


ESD, 


The TXT cards produced during this phase 
fill the following areas of the object 
module: 


e The NAMELIST tables 
e The literal constants 


e The FORMAT statements 


The other TXT cards required for the 
object module are PRONE by later phases 
of the compiler. 


PHASE 3 OF THE eONee een: UNIFY (TEYUNF) 


The third phase.of the compiler opti- 
mizes the subscripting operations performed 
by the object module by deciding, on the 
basis of frequency of use, which subscript 
expressions within DO loops are to appear 

and which are to = be 
maintained in storage. 7 : 


The following paragraphs, "Flow of Phase | 
3," describe the operation of Uae ty, by 
means Of narrative and ELOWENS EES 


The rolls Hani puLated: by: Unify. are 
listed in Table 5 and are mentioned in the 
following discussion of. the phase; these 
rolls are briefly described in context. 
See Appendix B for a. complete . eeecreEcron 
of any roll used in the. “phase. . 
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Table 5. Rolls Used by Unify 

SS ee a eee ee a aa a aaa oe a at re 1 
{| Roll Number i Roll Name | 
| Ds | Nonstd Script ] 
| 3 | Nest Script 1 
j 4 | Loop Script ] 
{ 13 | Std Script | 
| 14 | Temp | 
| 20 | Reg 
| 21 | Base Table | 
i 22 |. Array | | 
| 52 | Loop Control | 
] 54 | Script | 
| 55 | loop Data | 
] 56 | Program Script | 
| 57 | Array Ref | 
] 58 | Adr Const } 
Bk oe as pea Es ee Xena yo pea Ser gCe een re ane Erne Dee J 


FLOW OF PHASE 3, CHART 07 


START UNIFY (G0111) controls the opera- 
tion of this phase of the compiler. It 
initializes for the phase by setting the 
proper number of groups on the 
roll to zero (this function is performed by 
the routine ARRAY REF ROLL ALLOTMENT) and 
moving the information transmitted on the 
PROGRAM SCRIPT roll to the SCRIPT roll. 
When the initialization is complete, the 
reserve blocks on the SCRIPT roll are in 
order from the outermost lcop of the last 
source module DO nest (at the top of the 
roll) to the innermost loop of the first 
source module DO nest (at the bottom of the 
roll). 


After initialization, START UNIFY begins 
the optimizing process ky inspecting the 
last group of a reserve block on the SCRIPT 
roll; a value of zero in this group indi- 
cates the end of the SCRIPT roll informa- 
tion. When the value is nonzero, DO NEST 
UNIFY is called to process the information 
for an entire nest of CO lcops. On return 
from this routine, the nest has been pro- 
cessed; the count of temporary storage 
locations required is updated, and START 
UNIFY repeats its operations for the next 
nest of loops. | 


When all loops have heen processed, 
START UNIFY makes a complete pass on _ the 
ARRAY REF roll, setting up the instruction 
format for the array references from point- 
ers which have been left on the roll 
(CONVERT TO INST FORMAT actually sets up 
the instruction fields). When all groups 
on the ARRAY. REF roll have been processed, 
a jump is made to CONVERT TO ADR CONST. 
This routine sets up groups as required on 
the ADR CONST roll from data on the LOOP 
CONTROL roll. When the LOOP CONTROL roll 
has been processed, this routine terminates 
the Unify phase by calling Gen. 
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ARRAY REF 


ARRAY REF ROLL ALLOTMENT, Chart _DA 


This routine (G0145) constructs the 
ARRAY REF roll. The groups on this roll 
are initialized with values of zero. 
Pointers to the roll have been placed on 
the SCRIPT roll and in the Polish notation 
by Parse, but information has not actually 
been put on the roll before this routine is 
called. The number of groups required has 
been transmitted from Parse. 


This routine (G0113) constructs the ADR 
CONST roll from the base address informa- 
tion on the LOOP CONTROL roll. 


When the third word of the LOOP CONTROL 
roll group contains an area code and dis- 
placement, Unify requires a base address 
which it does not find in the base table. 
Since no values can be added to the base 
table by Unify, the required value must _ be 
placed in the temporary storage and con- 
Stant area of the object module. The ADR 
CONST roll holds the information required 
for Exit to place the value ina temporary 
storage and constant location and to pro- 
duce the RLD card required to get the 
proper modification of the value in that 
location at load time. This routine builds 
that information on the ADR CONST roil by 
allocating the temporary storage and con- 
Stant locations for the area codes’ and 
displacement values it finds on the LCOP 
CONTROL roli. See Appendix B for further 
explanation of the rolls involved. 


CONVERT TQ-INST FORMAT, Chart DC 


This routine (G0112) sets up the first 
word (zero rung) of each ARRAY REF roll 
group by testing the contents of the later 
words (the register rungs) of the same. 
roll. The result is the skeleton of the 
instruction *o be used for an _— array 
reference. When the second and third words 
of the group point to a general register, 
they are shifted into the appropriate posi- 
tion and inserted into the zero rung. (See 
Appendix B for the configuration of the 
ARRAY REF roll group.) At each entry to 
this routine, one word is processed and 
that word is cleared to zero before the 
routine exits. 


DO NEST. UNIFY, Chart DD 


This’ routine (G0115) first initializes 


for the processing of one nest of DO loops. 


For each DO loop, a reserve block exists on 
the SCRIPT roll and one group exists on the 
LOOP DATA. roll. 
are ordered so that, reading from the 
bottom of the rolls up, a nest level of one 
indicates the end of a nest of loops; that 
is, for each nest, the bottom block 
sents the inner loop and the top | block 
represents rae outer sees | 


DO NEST UNIFY serves a control eunet ion 
in this phase, arranging information to be 
processed by DO LOOP UNIFY and LEVEL ONE 
UNIFY; it is these latter routines which 
actually perform the optimization of sub- 
scripting by means of register assignment. 
The main result of the optimization is that 
in the initialization code for 
depends on the _ DO 


loop 
a Sharla : 


variable is 


DO LOOP UNIFY expects to find a reserved 


block on the bottom of the NEST SCRIPT roll 
describing a loop one nest levei deeper 
than the loop described by the bottom 
reserved. block on the SCRIPT roll. More- 
over, 
the block on the NEST SCRIPT roll must 
already reflect the allocation of arrays by 
Allocate; that 1S, 
been processed by NOTE ARRAY ALLOCATION 
DATA, another routine 
UNIFY. This arrangement is required. so 
that DO LOOP UNIFY can pass. information 
from the loop being processed (on the NEST 
SCRIPT roll) to the next outer loop (on the 
SCRIPT roll). } : _ _ eae 

A special case is made of the reserved 
block describing a loop of nest level 
Since there is no outer loop’ to which 
information can be passed. The routine 


LEVEL ONE UNIFY processes in place of DO 


LOOP UNIFY in this case; it expects to find 
the reserved block describing the level one 
loop on the NEST SCRIPT roll. : 


IEYROL MODULE 


The IEYROL module is into main 


| : loaded 
storage by program fetch, along with the 
Invocation phase and the five processing 


phases. It contains two static rolls (the 
WORK roll and the EXIT roll), roll statis- 
tics, group stats, and the ROLL ADR table. 
Throughout the operation of the compiler, 
it maintains a record of the storage space 
allocated by the control program to the 
dynamic rolls. 


These blocks and groups 


repre- 


each loop, 
only that portion of each subscript which 


both the block on the SCRIPT roll and 


both blocks must have 


called by DO NEST 


One, 


Gen produces object code from the Polish 
notation and roll information left by pre- 
vious phases of the compiler. The. code 
produced by this phase appears, one state- 
ment at a time, on the CODE roll, and is 
saved there until it is written out by 
EXIT. _ | | | a 


The following paragraphs, "Flow of. Phase 
4," describe the operation of this phase by 
means (of narrative and flowcharts. : 


The rolls manipulated by Gen are listed 
in Table 6 and are mentioned in the follow- 
ing description of the phase; these rolls 
are briefly described in context. See 
Appendix B for a complete description of 
all of the elas i used in the phase. 


red 





Table 6. Rolls Used by Gen . 
|Ro11 ; [Roll | 
|No. Rolji_ Name [No. Roll_Name | 
} 1 Source | 24 Entry Names | 
| 4& Polish | 25 Global Dmy “| 
}; 8 Fx Const } 34 Branch Table | 
{ 9 Fl Const } 36 Fx Ac — 
}/ 10 Dp Const } 40 Temp Pntr | 
} 11 Complex Const j| 42. Fl Ac. | 
| 12 Dp Complex -] 43 Lbl | | 
|} Const ~ . A OH Scalar | 
} 14 Temp > | 45 Data Var. a 
. } 15 > Do: Loops Open “| 52. Loop Control = |{ 
| 15 Loops Open | 55 Loop Data et 
| 16 Temp and Const } 56 Array Plex - tT 
} 17 Adcon | | 57. Array Ref. aes | 
| 18 Data Save [59 "AL | | 
|} 22 Array | 62 Code ae me | 
| 23. Dmy Dimension ] 63 After Polish | 
] 23 Sprog Arg. { | = 
La ee Diet ee ee ees 4 


FLOW OF PHASE 4, CHART 08 


START GEN (G0491) initializes for the 
operation of the Gen phase. It then calls 
ENTRY CODE GEN to produce the object head- 
ing code and PROLOGUE GEN and EPILOGUE GEN 
for the required prologues and -epllogues. 
On return from EPILOGUE GEN, START GEN 
falls through to GEN PROCESS. | | 


GEN PROCESS (G0492) controls the repeti- 
tive operations of Gen. It first calls GET 
POLISH, which moves the Polish notation for 
one statement from the AFTER POLISH roll to 
the POLISH roll. Using the Polish notation 
just moved, GEN PROCESS determines whether 
the statement to be processed was labeled; 
if it was, the routine LBL PROCESS is 
called. If the source statement was not 
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labeled, or when LBL PROCESS returns, GEN 
PROCESS calls STA GEN and STA GEN FINISH. 


On return from STA GEN FINISH, GEN PROCESS. 


restarts. 


The termination of the Gen phase of the 
compiler occurs when an END statement has 
been processed. END STA GEN jumps directly 
to TERMINATE PHASE after the object code is 
produced, rather than returning to GEN 
PROCESS. TERMINATE PHASE is. described in 
Chart EG and in the accompanying text. 


ENTRY CODE GEN, Chart EFA 


ENTRY CODE GEN (G0499) first determines 
whether the source module is a subprogram. 
If it is not, the heading code for a main 
program is placed on the CODE roll, the 
location counter is adjusted, and the rou- 
tine returns. 


If the source module is a subprogram, 
ENTRY CODE GEN determines the number of 
entries to the subprogram, generates code 


for the main entry and for each secondary 
entry and, when all required entry code has 
been produced, it then returns. 


PROLOGUE GEN, Chart EB 


PROLOGUE GEN (G0504) processes the main 
entry and each additional ENTRY to the 
source subprogram, producing the required 
prologues. Prologue code transfers argu- 
ments as required and is, therefore, not 
produced if no arguments are listed for the 
ENTRY. The prologue code terminates with a 
branch to the code for the appropriate 
entry point to the subprogram; in prepara- 
tion for the insertion of the address of 
that entry point, this routine records the 
location of the branch instruction on the 
ENTRY NAMES roll. If the source module is 
not a subprogram, PROLOGUE GEN exits. | 


_ EPILOGUE GEN (G0508) processes the main 
entry and each additional ENTRY to a= sub- 
program, producing the required epilogues. 
Epilogue code returns argument values. and 
returns to the calling program. If this 
routine determines that the source module 
is not a subprogram, main program prologue 
and epilogue code are produced. = 


GET POLISH, Chart ED 


This routine (G0712) moves the Polish 
notation for a single statement from the 
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trace 


AFTER POLISH roli to the POLISH roll. The 
Polish notation is moved from the beginning 
of the AFTER POLISH roll, and a pointer is 
maintained to.indicate the position on the 
roll at which the next statement begins. 


Note: Unlike the other rolls, data from 
the AFTER POLISH roll is obtained on a 
first-in. first-out basis. (i.e., the PASE 
rather than the BOTTOM pointer is used). 
This is done to maintain the sequence of 
the source program. | - 


LBL PROCESS, Chart EF 


LBL PROCESS (GO493) 
pointer left on the WORK roll by GEN 
PROCESS in STA LBL BOX. It then inspects 
the LBL roll group defining the label, and 
determines whether the label is a jump 
target. If so, the base register table is 
cleared to indicate that base values must 
be reloaded. 


stores the label 


If the label is not the target of a 
jump, or when the base register table has 
been cleared, the AT roll is inspected. 
For each AT roll entry (and, therefore, AT 
statement) referring to the labeled state- 
ment being processed, made labels are con- 
structed for the debug code and for the 
next instruction in line, pointers to these 
labels are recorded on the AT roll, and an 
unconditional branch to the debug code is 
placed on the CODE roll. 


When all AT references to _ the 
label. have been processed, an instruction 
is placed on the CODE roll to inform Exit 
that a label was present and that a branch 
table entry may be required. Then, if the 
flag is on (indicating the presence 
of the TRACE option in the source DEBUG 
statement), the debug linkage. for TRACE and 
the binary label are placed on the CODE 


present 


roll. If the trace flag is off, or when 
the code has been completed, LBL PROCESS 


returns.. 


STA GEN (G0515) uses the control driver 
left on the WORK roll by GEN PROCESS to 
index into a jump table (STA RUN TABLE), 
jumping to the appropriate routine for 
constructing the object code for the spe- 


cific type of statement being processed. 
This operation is called a "run" on the 
driver; other "“runs"™ occur in Gen for 


building specific instructions or for 


generating data references. 


-The names of the code generating rou- 
tines indicate the functions they perform; 


for example, assignment statements are pro- 
cessed by ASSIGNMENT STA GEN, while GO TO 
statements are processed by GO TO STA GEN. 
These routines construct the code for the 
statement on the CODE roll and, when the 
code is complete, return tc GEN PROCESS. 


END STA GEN processes the END statement 
and provides the normal termination of the 
Gen phase by jumping to TERMINATE PHASE 
after producing the code. The code pro- 
duced for the END statement is identical to 
that for the STOP statement if a main 
program is being compiled or a RETURN 
Statement if a subprogram is being com- 
filed. If an AT statement precedes’ the 
END, an unconditional branch instruction is 
constructed to return from the debug code 
to the main line of code. 


TERMINATE PHASE (G0544) prepares for and 
calls the Exit phase of the compiler. 


STA GEN FINISH, Chart EH 


STA GEN FINISH (G0496) determines wheth- 
er the present statement is the closing 
statement of any DO loops; if it is, this 
routine generates the code required for the 
DO loop closing and repeats the check for 
additional loops to be closed. | 


all DO closings have been pro- 
cessed, STA GEN FINISH resets pointers to 
temporary locations, clears accumulators, 
and returns to GEN PROCESS. 


When 


PHASE 5 OF THE COMPILER: EXIT (ZEYEXT) | 


Exit produces the SYSPUNCH and/or SYSLIN 
output requested by the programmer, except 
for the ESD cards and TXT card produced by 
the Allocate phase. It also produces’ the 
listing of the object module on SYSPRINT, 
if it has been requested by the programmer. 


The description of this phase of the 
compiler is divided into two parts. The 
first of these, “Flow of Phase 5," de- 
scribes the overall logic cf the phase by 
means of narrative and flowcharts. 


The second part of the description of 
the phase, "Output from Phase 5," describes 
the output written by the phase. 


The rolls used by Exit are listed in 
Table 7, and are briefly described in 
context. For further description of rolls, 
see Appendix B. 


Table 7. Rolls Used by Exit 

eg ae Sera Re Toe at ee ee ee ee 1 
| Roll Number | Roll Name | 
| 7 | Global Sprog | 
| 16 | Temp and Const | 
| 17 | ADCON | 
| 20 | CSECT | 
| 2 | Sprog Arg ‘| 
| 38 | Used Lib Function — | 
| 45 | BCD © i 
| —«46 | Base Table - 
| 51 | RLD | 
| 52 Branch Table | 
| 58 | Adr Const 1 
j 62 | Code | 
bos ee Be FN ee ee J 
FLOW OF PHASE 5, CHART 09 


The routine EXIT PASS (G0381) controls 
the operation of this phase. After initia- 
lizing, this routine calls PUNCH NAMELIST 
MPY DATA and PUNCH TEMP AND CONST ROLL. 
The routine PUNCH ADR CONST ROLL is’~ then 
called and, if an object module listing was 
requested, the heading for that listing is 
written out. 


After this operation, EXIT PASS calls 
PUNCH CODE ROLL, records the memory 
requirements for the code, and prints’ the 
compiler Statistics. PUNCH BASE ROLL, 


PUNCH BRANCH ROLL, PUNCH SPROG ARG ROLL, 
PUNCH GLOBAL SPROG ROLL, PUNCH USED LIBRARY 
ROLL, PUNCH ADCON ROLL, ORDER AND PUNCH .RLD 
ROLL, and PUNCH END CARD are then called in 
order. On return from the last of these, 
EXIT PASS releases rolls and exits to the 
Invocation phase of the compiler. 


This routine (G0382) initializes the 
location counter for the temporary storage 
and constant area of the object module. It 
then initializes a pointer to the TEMP AND 
CONST roll and begins the processing of 
that. roll from top to bottom. Each group 
on the roll is moved to the output area; 
when the output area is full, a TXT card is 
written. When the entire TEMP AND CONST 
roll has been processed, a jump is made to 
PUNCH PARTIAL TXT CARD, which writes out 
any partial TXT card remaining in the 
output area and returns to EXIT PASS. — 
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PUNCH ADR CONST ROLL, _Chart_ FB 


AGATE AEE ED NED MED RRL 


The information on the ADR CONST roll is 


‘used by this routine (G0383) to produce TXT 
cards for temporary storage and constant 
area locations which contain addresses. 
RLD roll entries are also produced to cause 
correct modification of thcse locations by 
the linkage editor. The beginning address 
of the temporary storage and constant area 
‘is computed. Then, for each ADR CONST roll 
entry, the TEMP AND CONST roll pointer is 
‘added to that value to produce the address 


at which an address. constant will be 
stored. This address is placed in the TXT 
card and on the RLD roll, the address 
constant from the ADR CONST roll initial- 
izes that location, and the area code from 
the ADR CONST roll is flaced on the RLD 
roil. (See Appendix B for roll descrip- 


tions. ) 


PUNCH CODE ROLL, Chart FC 


-- PUNCH CODE ROLL (G0384) initializes a 


location counter and a pointer to the 


roll. Inspecting one group at a time, it 
determines the nature of the word. If it 
is a statement number, PUNCH CODE RCLL 


simply stores it and repeats the operation 


with the next word. 


group is a constant, 


If a it is placed 
in the output area for SYSPUNCH and/or 
SYSLIN. This category includes literals 


thus, the con- 
occupy several 


which appear in-line and, 
stant to be written may 
groups on the roll. 


- Groups representing code are placed in 
the output area and, if an object module 
listing has been requested, the line 
entered into the output area is listed 
before it is punched. The contents of the 
CATA VAR roll are used fcr the listing of 
the operands. : 
roll is an 


If the group on the CORE 


indication of the definition of an address 
constant, the location counter is’ stored 
accordingly, and the operation of the rou- 


tine continues with the next group. 


| PUNCH CODE ROLL also determines whether 
the group is an indication of the defini- 
tion of a lakel, if it is, the routine 
defines 
as required, 
output line 
and repeats with the 
roll. 


inserts the label in the 
for the object module listing 
next group on the 


When all groups. on the roll have been 
processed, a transfer to PUNCH PARTIAL TXT 
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izes the location counter to the 


‘BASE TABLE 


CODE 


pointer to 


bottom, 


the label on the BRANCH TABLE roll 


_ then 


CARD is 
incomplete TXT card which 


made; that routine writes out any 
may be in the 


output area, and returns, to EXIT PESS. 


PUNCH BASE ROLL, Chart FD 


PUNCH BASE ROLL (G0399) initializes a 
pointer to the BASE TABLE roll and initial- 
beginning 
address of the object module base table. 
It then enters each group on the BASE TABLE 
roll into the TXT card output area; it also 
records the object. module ESD number = and 


the location counter on the RLD roll for 
later production of the RLD cards. 
Whenever the output area is full, a TXT 


card is written. 
roll 
routine makes a jump to PUNCH 


When all groups on the 
have been processed, the 
PARTIAL TXT 


CARD, which writes out any incomplete card 
in the output area and returns to. EXIT 
PASS. 


PUNCH BRANCH ROLL, Chart FE 


This routine (GO0400) first initializes a 
the BRANCH TABLE roll, and the 
location counter to the beginning location 
of the okject module branch table. When 
these operations are completed, the routine 
inspects the BRANCH TABLE roll from top to 
making the requisite entries on the 
RLD roll and entering the addresses from 
the roll in the TXT card output area. TXT 


cardS are written when the output area is 
full. When ali BRANCH TABLE roll groups 
have been processed, the routine jumps to 


PUNCH PARTIAL TXT CARD, which writes out 
any incomplete card in the output area and 
returns to EXIT PASS. 


PUNCH SPROG ARG ROLL (G0402) initializes 
a pointer to the SPROG ARG roll andé ini- 
tializes the location counter to the begin- 
ning address of the subprogram arquments 
area of the object module. 


The routine then inspects the groups’ on 
the SPROG ARG roll. If the first word of 
the group contains the value zero (indicat- 
ing an argument whose address will be 
stored dynamically), the group is placed in 
the TXT card output area, and the card is 
written if the area is full. The routine 

repeats with the next group on the 
roll. : | 


If the SPROG ARG roll group does 
contain. zero, the group: is then inspected 
to determine whether it refers to a tem- 
porary location. If it. does, the correct 
location (address of the temporary storage 
and constant area plus the relative address 
within that area for this location) is 
determined. The required RLD roll entries 
are then made, the address is moved to the 
output area, and PUNCH SFROG ARG ROLL 
repeats this process with the next group on 
the roll. 


If the group from the SPROG ARG roll 
contained neither a zero nor a temporary 
location, the argument referenced must have 
been a scalar, an array, a label ora 
subprogram. In any of these cases, a base 
table pointer and a displacement are on the 
rointed roll. From these, this routine 
computes the location of the variable or 
label or the subprogram address, enters it 
in the TXT card output area, and records 
the RLD information required on the RLD 
roll. The routine then repeats with the 
next GONE on the SPROG ARG role 


This 
PUNCH PARTIAL TXT CARD when all Sener ARG 


roll aeotre have been BEC ese ed: 


PUNCH GLOBAL SPROG ROLL, Chart FG 


This routine (G0403) first inverts the 
GLOBAL SPROG roll.and moves one word from 
that roll to the WORK roll. Tf these 
actions indicate that there is no informa- 
tion on the roll, the routine exits. 


‘Otherwise, for each group on ‘the GLOBAL 
SPROG roll, this routine enters the ESD 
number for the subprogram and the location 
at which its address is to be stored on the 
RLD roll. The routine also writes a word 
containing the value zero for each subpro- 
gram listed (these words become the object 
module subprogram addresses region). When 
all groups on the GLOBAL SPROG roll have 
been. processed, the routine. exits through 
PUNCH PARTIAL TXT CARD, which writes out 
any incomplete card remaining in the output 
area before returning to EXIT PASS. 


PUNCH USED LIBRARY ROLL, Chart FH 


(GOuU04) Bit the same 
roll 


that the previous routine on for the 


This routine 


GLOBAL SPROG roll, thus completing the 
subprogram addresses region of the object 
module. The techniques used for the _ two 


rolls are identical. 


not 


‘the ADCON roll. 


Stant. 


: - ‘pleted. 
routine exits to EXIT. PASS” deouah 


Seuock ETS pROREE chart. FI 


This routine (GO0405) returns immediately 
to EXIT PASS if there is no information on 
Otherwise, it writes out 


one TXT card for each group it finds on the 


obtaining the area code, the address 
constant,.and the address of che constant 
from the ADCON roll. The ESD number and 
the address of the constant are placed on 
the RLD roll for subsequent processing. A 
TAT card is punched ‘containing the. con- 
‘The operation of PUNCH ADCON ROLL 
terminates when all groups on the roll have 
been DECCERE COs 


roll, 


Z mien euLine “aul: Soere When roll 
and processes the groups on that roll, 
producing the object module RLD cards. The 
card images are set up, and the RLD cards 
are actually written out as they are com- 
When all information on ‘the roll 
has been aha this routine returns to 
EXIT ‘PASS. | ae “aS 7 , 


(GO4&24) produces’ the 
object module END. card. It ‘moves’ the 
required information into the card image 
and initiates the write operation; it then 
returns to EXIT PASS. , 


PUNCH END CARD 


PUNCH NAMELIST MPY DATA, Chart FL 


This routine (G0564) is responsible for 
the punching of TXT and RLD cards for those 
words in the object module NAMELIST tables 
which contain pointers to array dimension 
multipliers. The multipliers themselves 
are placed on the TEMP AND CONST roll. The 


required information is found on the 
NAMELIST MPY DATA roll; when all. groups 
have been processed, this routine returns 


to EXIT PASS. 


OUTPUT FROM PHASE 5 


Four types of output are produced by the 
Exit phase of the compiler: TXT cards, RLD 
cards, the object module listing, and the 
compiler statistics. The cards are pro- 
duced on SYSPUNCH and/or SYSLIN, according 
to the user's options. The listing, if 
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requested, is produced on 
compiler statistics for the compilation are 
produced on SYSPRINT. | 


The formats of the TXT and RLD cards are 
described in the publicaticn IBM System/360 
Operating System: Linkage Editor Program 


Logic Manual. The object module listing 
consists of the following fields: 
e Location, which is the hexadecimal 


address relative to the beginning of 
the object module contrel section, of 
the displayed instruction. 


(entitled STA NUM), 
which is the consecutive statement 
number assigned to the source module 
statement for which the displayed 
instruction is part of the code pro- 
duced. This value is given in decimal. 


e Statement number 


e Label, which is the statement label, if 
any, applied to the statement for which 
the code was produced. The statement 
label is given in decimal. 


e Operation code (entitled OP), which is 
the symbolic operation code generated. 


e Operand, which is given in assembly 
format but does not contain any vari- 
able names. 


e Operand (entitled BCD OPERAND), which 
contains the symbolic name of the vari- 
able referred to in the source module 
Statement which resulted in the code. 


38 


SYSPRINT. The 


The compiler statistics are the final 
output from phase 5. The formats for the 
messages which provide compiler statistics 
for the compilation are as follows: ~~ -* 


*OPTIONS IN EFFECT* option{,option}... 
*OPTIONS IN EFFECT* option{,option}... 
*STATISTICS* SOURCE STATEMENTS=nnnnnnnn,, 
PRCGRAM SIZE=nnnnnnnnzg 
and 
*STATISTICS* NO DIAGNOSTICS GENERATED 


Or 


*STATISTICS* nnn DIAGNOSTICS GENERATED, 
HIGHEST SEVERITY CODE IS n 


where: 

nmnnnnnnn, is the number of source state- 
ments expressed as. a decimal 
integer. | 

nnnnnnnnzg is the size, in bytes, of the 
Object module expressed as a 
decimal integer. 

nnn is the number of diagnostics 
generated expressed as a_ deciral 
integer. 

n is the condition code. 

The first statistics message (giving 
source statements and program size) is 


suppressed whenever a BLOCK DATA subprogram 
is compiled; however, the two options-in- 
effect messages and one of the other statis- 
tics messages will still appear. 
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HERE KY EHERE SEES 
* * 
* IEYALL * 
* * 

HEE EEEEREEARES 
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Compiler Operation 


67.1. 


Chart BA. 


PRINT A CARD 


68 


WRITE LISTING AND READ 


G0837 


HREEKAPHREKREKHEEE 
* PRINT * 
#AND READ SOURCE* 
* * 


REREHRHERERAREHHE 


Vv 
HREKRKAHD RHKRKHHRKREE 


* * 
* TURN * 
* OFF NO PRINT #* 
* FLAG * 
* * 
* * 


RRAKEERHRERH EEE 


o*e 
c2 He 
o* Re 
o* DATA *e YES 
*#.ON ERROR ROLLe* 
He o* 
He o* 
He ot 
* NO 


* mee 


e e 
D2 %e 
ot He 
e* SOURCE *. YESV 
Re LISTING e*#—— 
* eREQUESTED.* 
He ot 
He ot 
1 NO 


Vv 
BERHREEDMEKHERMEREE 


* * 
* TURN * 
* ON NO PRINT # 
* FLAG * 
* * 
* * 


REE HHH 





< 


#83707 Vv 

HHERAEEDKREMRKKRKREREE 

* * 
* INITIALIZE # 
* STATEMENT CD *# 
* COUNT * 
* * 
Sg * 


HRREREEEKRRHKRHREE 


> 
| Vv 
#83701 o*e 


o* ¥e * 
o* PRINT *. YES 
Re OF STMT e* 


*.COMPLETE «# * 
e o* * 


1 NO 


Vv 
RRRKEEHHYORRRERHRHHEERE 


* 
e 


CARD ANO ITS te 
* ERROR MSGS ¥* 


HRHERKHKEHEAKRHERE 


yy ° * 
* PRINT ONE * -* 


SOURCE 


#083702 
G2 He HRRHEGI HEE HEE HH 


»* MOVE 1 CD TO 
>*SOURCE ROLL AND* 
SET CONTROL 


o* REEHRHAHAKEREERERHE 


x<— 


H3 He 


END 
STATEMENT 


*#. PROCESS eo 


ee * 
He ot 
* NO 
| 
l 
Vv 
HH 


B4 


HEH 


xk x 
* ok * 





te 


ERNE 


B4 


** 
% ok 


RHEE 
| 


Vv 
RHR BA HME HEHEHE HK 
INITIALIZE 
* FOR NEW STMT, * 
READ ONE CARD 
* AND PRESCAN ¥* 
STMT 
MEE EE 


ee 
Vv 
#083703 o%*e 


o* He 
o* *. NO 
*eMORE TO READ .* 
He o* 
de o* 
He ot 


#83703 Vv 
REED G HHH REE HHH 


* WAIT FOR LAST #* 
READ COMPLETE 
*AND READ ONE * 


CARD 
RRR EEE EEE 


#083704 Vv 
HEH GREE HEHEHE 
* TURN OFF * 
* FLAGS * 


* INDICATING NO * 
* MORE READ AND * 
* NO MORE PRINT * 
HERR ENRERE RHEE EE 





Vv 
HR KG HEHEHE 


* * 
* RETURN * 
* * 


HREKERKEHHKHEBUEBR NY ~ 


INIT 
READ A CARD 


READ A CARD 


Chart BB. INITIALIZE FOR PROCESSING STATEMENT 


G0632 


HEHKEAPDKHERKEKEE 
* 


* 
* STA INIT * 
* % 


HHEERERAEHEKRKAKEKREN 


| 

| 

l 

V 
HHEKEERHPHEMKKEKEKHKRE 
* 


* 
* INITIALIZE * 
* CHARACTER # 
* COUNTS * 
* % 
e % 


HREBHKEKREREREREK 


| 

{ 

V 
HEHE CD RHEE EHHEEH 
* * 
*SET CRRNT CHAR # 
*TO FIRST SOURCE* 
* CHARACTER * 


*% * 
HREKRKEKEEKHAKKEREKREHE 


Vv 
HHEKEHO DHMH EEKEEE 
* SET: * 
*COUNT OF SOURCE* 
*STMT CHARACTERS* 
*TO NOe CARDS X * 
* 80 % 
HERE HEEEEHEE 


Vv 
HRHEHRED HERR HE REESE 
* 


CLEAR FLAGS 


* 
* * 
* * 
* * 
*% * 
* *% 


MERKEKEKECEKEKE EH 


Vv 
HHH DERM HE HEH 


* 
* RETURN * 
* * 
KHREBRHHERHKEREREE 
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Chart BC1. 


STATUS CONTROL 


DIGIT 
CONVERSION 


CONVERT ONE DIGIT 


REGISTER LABEL 


70 


PROCESS LABEL FIELD 


G0635 
HEED DAHER EEA E 
* * 


, UBL FIELD XLATE® 
HERE EEE EERE E EES 


HEKERBDEREREEEEES 


* SAVE ADDRESS ¥* 
* OF CURRENT * 
*BOTTOM OF WORK * 
* ROLL AND EXIT * 
* ROLL * 
KEKE EKEEEKES 


HEREC DEAEEEEEEERE 
*SET STMT LABEL * 
* POINTER TO QO #* 
* AND SKIP TO #* 
*FIRST NON-BLANK* 


* CHARACTER * 
REE EEE EK KEK KKK 


(Part 1 of 2) 


o¥*. #063503 o*, 
D2 *, D3 * 
* * .* *, 
* Cc *, NO -* MUST THIS *. NO .: 
*. COUNT LESS .*-------- >*. STMT HAVE , *-~--—--- 4 
*., THAN 6 .* *., LABEL .* Vv 
Poe * *, .* es S| 
*, + *. .* *BC2* 
* YES * YES * C2* 
* * 
* 


HREEA ED ERE ERE EEK 
* 


* 
* INITIALIZE * 
* FOR DIGIT * 
: CONVERS ION : 
HERE EER EER EES 


EH 

* * 

* F2 *-> 

* * 
+e RS 


#063501 .*. 
F2 


+ * 


-* *. NO 
ee A Dist ee, 


* 


*. ot 
* YES 


* 


EERKECD EEEKEEEREEE 


* CONVERT * 
* ONE DIGIT TO #* 
*BINARY. SKIP TO* 


*NEXT NON-BLANK * 
* CHARACTER * 
HERA EE EEK EK EE HK 


HERKAR JARRE E EE EK KE 
* * 
* LABEL MISSING * 
* MESSAGE TO * 
: ERROR ROLL ; 
REKKEKEKRK EHR EE REX 


(SYNTAX FAIL) 
HERES RRR EERE ES 
* SYNTAX * 
* MESSAGE TO * 
* ERROR ROLL. * 
* RESTORE WORK # 
*AND EXIT ROLLS * 
ACE EEE RE KE EE 


H2 *, Vv 
.* *. HERE RRR E REE KE 
* CHAR *. YES * RETURN * 
*. COUNT LESS .*--— * (EXIT FALSE) * 
*. THAN 6 .* * * 
*. * | KERR KEKE KS 
*,  * 
* NO *ekKEX 
* * 
* FQ * 
* * 
REF 
HEE TD EREEREEK AE 
* MOVE LABEL * 
*TO LBL ROLL AND* 
* LABEL POINTER * 
* TO STA LBL * 
* POINTER * 
RHKKKKKEKREKKKKKESR 
.*, 
K2 *, KEREEKZ ERE EEK EAE 
.* *. * MULTIPLE + 
* LABEL *. NO * DEFINITION * 
*. UNDEFINED .*—--—~----- >* ERROR MSG TO #* 
*, -* * ERROR ROLL * 
*, * * * 
*. JF KEE EEE REERKEES 
* YES 
V 
EEK KEeEE 
*BC2* *BC 2* 
* A2*e * A2* 
* * * + 
* * 


Chart BC2. 


EERE 

+*BC2*# 

* A2* 
* * 
* 





#063502 
HEEESA DEREEEEEEEE 
eo, + 
* ' MARK * 
* LABEL AS * 
- DEFINED . 
HREKEEABCDEREEESH 
“A2 
#eeEE 
*BC2* 
* C2* 
* * ~*. o*, 
* B2 . B3 *, 
* * -* INNER *. 
.* IN A - YES .* DO *,. NO 
* DO LOOP . ¥-—-—-—--——— >*. CLOSED FLAG .*----~— 
° s =) ON * 
*,. o* s e 
*, .* *, o# 
* NO * YES 
a, pt Sioa a ee 
: A ‘ 
#063504 . *, .* 
c2° 7 #, C3) #, 
* *, * TS *, 
NO .* LAST *, NO . LABEL *. 
—---—*.STMT AN ARITH.* <--—*. PREVIOUS « ¥<K-—— 
+. IF .* *. TARGET | .+ 
ee a 2 
* YES * YES 
HEKRHSEDDERKEEEERES HEKEED 3 EE REREEE EE 
*PUT POINTER TO * * TAG GROUP ON * 
; ; * THIS LABEL. * *XTEND LBL ROLL * 
PROCESS POLISH *MOVE POLISH TO * <--~--* AS POSSIBLE #* 
* AFTER POLISH * *RE-ENTRY POINT # 
* ROLL * * * 
HERKEEEEEE REESE ES HREEKEREES EERE EE 
Shee >| 
#063505 
NON-ACTIVE END HEKEFED ERE EK ESSE 
FLAG INDICATES *SEF NON-ACTIVE #* 
PREVIOUS STMT *END FLAG TO NXT* 
ALWAYS BRANCHES * STA LBL FLAG * 
WHEN IT IS ON. *AND CLEAR NEXT * 
USED IN TEXT FOR * STA LBL FLAG * 
GENERATION OF HEEKE ARES ER EEES ES 
CODE FOR END STMT. 
a*. 
F2 *, 
* * HEREE3EEREEEEESE 
~* CHAR *, N * RETURN * 
*, COUNT eta ee (EXIT TRUE) be 
"*. 6 «tt HKEKHEKEEE EEE EE 
+. .* 
| YES 
. *. 
G2 *, 
_* KEKEGZREEEEEERE 
* *. YE * RETURN * 
* ~ CHAR A ZERO -* --- >* (EXIT TRUE) ; 
"a. + HEARHEREERECEREE 
*, .* 
* NO 


PROCESS LABEL FIELD (Part 2 of 2) 


FEKEEBUREEEEHEESE 
* * 
* PUT LABEL * 
* ON * 
Sx TEND LBL. ROLL : 
HEKEEEREEEESHEEES 


#063581 .*, 
c4 *, 
-* IS *. 
NO .* LABEL ON *. 
- XTEND TARG  .* 
. LBL * 
*.ROLL .* 
*. .* 
* YES 


.*. 
DY *. 
«* GROUP *. 

-* TAGGED AS *. 
*. POSSIBLE -* 
*. RE-ENTRY .* 
= POINT. * 


eee 


Vv 
KEKE EL LRKEHESEREES - 
* * 
* REMOVE GROUP * 

FRO 


~~ ee ¥C-- 


(SYNTAX FAIL) 


KREKKED DERE EEEEES 
* SYNTAX MSG TO * 
* ERROR ROLL. * 
* RESTORE WORK * 
oe EXIT ROLLS [ 


REESE KEREEKEES 


HEKKE TD EREKEEHERE 


a SCAN * 
> TO NEXT * 
* NON- BLANK * 
: CHARACTER ‘ 
SHREK EERE EE EEEEES 


HERE KZPEREEED EEE 
* RETURN * 
pi (EXIT FALSE) ; 

HRKEEKEREKERERE 


*XTEND TARG LBL * 
* ROLL * 
HEREEHREEEREEERESE 


Section 2: 


HEEEE DO EEREKEE ERE 


* TAG GROUP ON * 
*XTEND LBL ROLL * 


rs >* AS POSSIBLE * 


sRE-ENTRY POINT : 
HEEKKEEEERETEREERE 


eo ee 


Compiler Operation 70.1 








Chart BD. 


G0636 


REEKALREREEE EHH 


* * 
* STA XLATE # 
# # 


HRKKEBEREKREEE HEE 


HHEREGQL AREER DEH 
* * 
* RETURN #< 
* * 

pees terre te ests’ 


G0637 


RREEC | RHRERE EEE 


*#ASSIGNMENT STA * 

* XLATE * 
# * 
Pec eee ree ree St td 


PROCESS STATEMENT 


HRAEEKADERARTERE LH 
* * 
# SAVE * 
>#* LOCATIONS OF #* 
# WORK AND EXIT # 
# * 
RAKEEARAEEHREEERE EE 


HRKEKEH DEERE R 


* RECORD * 
* ILLEGAL * 
# STATEMENT * 
* MESSAGE * 
# * 
SERRE EH EERE EE EH 


o* He 
o* He 


—>*#.STMT FUNCTION. * 
* ° * 


e e 
He o* 
He ot 

1 NO 


v 

SRR DO DRESS HEH 
* CONSTRUCT #* 
# POLISH FOR #* 
# VARIABLE + 
* EXPRESSION #* 
cd * 
. * 


HERE RHHRERENRENE 


STA XLATE EXIT 


o*. 
A3 He 
o* He 
o* ASSIGN- *. NO 


*eSTATEMENT o*. 
He o# 
Be of 

* YES 


| 
| 
Vv 
* 


o* He 
YES e# IN _ Re 
<—_——————F « BLOCK DATA o* 
*#.e ROUTINE e*# 
He o* 
He ot 
* NO 


YES 
: ARITH FUNC 
DEF STA 
XLATE 


Vv 
HREKHAOZHARHREHEED 
* UPDATE ROLL #*# 
*# ANO CONSTRUCT * 
* POLISH FOR * 
* FUNCTION * 
+ * 
* * 


HREKMKKAKRKEKEKRRKEEE 


>*. MENT TYPE a 
| 


v 
HREKAGHSL CREME E 
*% * 
* SCAN STMT * 
* TO DETERMINE #* 
* TYPE * 
% * 
HREBRUEEERRRHERHREREH 


Vv 

RHEE RHEE EEE HH 
* UPDATE ROLLS * 
* AND/OR * 
* CONSTRUCT * 
*# POLISH FOR * 

* 

* 


* STATEMENT 
EERE EHR H 


> | <-—__—-——_-—-——_———— 


Vv 
G0732 o%*e 
E3 Fe 
o* ¥e 
o* *. NO 
# SEVERE ERRORS.* 


e e 
F3 He 
o% He 
e* ACTIVE *. NO 
%e STATEMENT o* 


He o* 


HRHEKRKEAEGZIRERKETHERAHE 
*% * 
# REMOVE POLISH * 
# AND REPLACE # 
*#WITH ERROR LINK* 
+ * 


RUE HEE EEE H 


| 
| 





Vv 
RHEE ZEEE REEE 
* * 
* RETURN * EXIT 
* 


HSHRKEEEREBREREEEER 


HHHKKE AHHH KREHEK 


* * 
>* RETURN * EXIT 
* a 
RENEE RENEE EHH 
HRKEE AMHR ERENE 
* * 
>* RETURN * EXIT 
* * 


HREKEEE MERE EHH 
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LITERAL TEST 


THIS OPERATION 
IS PERFORMED BY 
THE STA XLATE 
ROUTINES 
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COMPLETE STATEMENT AND MOVE 





Chart BE. POLISH 
G0633 
ERED ERE EREES 
* * 
* STA FINAL * 
* * 
EREREEKERERERER KKES 
* * 
* Bu * 
* * 
+ ee 
#063302 
HREREB] EEEEEEEEEE HHAKE BUEKEKREEKES 
* * * * 
* INCREMENT * * MOVE GROUP * 
*STATEMENT COUNT®* * BACK TO DO + 
* * ‘LOOPS OPEN ROLLS 
* * eeEEt 
REREEEEEEERE EE EEE ras exe ekbaasi ese *BE * 
; *D5 * 
* * 
* 
---~-- > 
Vv 
o*. #063303 ..¥*. 
cl *. ; C4 *, 
.* *, KHEKECDEREAEEEES 7 +. 
.* *. NO * * .* THIS *. NO 
*. ANY POLISH . *-~-~----- >* RETURN * *.STMT LABELED .* ee > 
*. .* * * . x 
+. .* ERE EERE EEE EEE *, .* 
*, * 7 *. * 
* YES * YES 
| THIS FLAG ON INDICATES STA FINAL END 
ws ONE OF THE STATEMENTS Vv G06 34 
D1 + WHICH MAY NOT TERMINATE HHEEKEOUEHEEEKKERE EEKRKEEOOEEEREEKEEKE SE 
-* *. CO LOOPS * * * * 
*. YES *. PUT POINTER * * PUT STMT * 
*. JUMP FLAG ON . *——-~-~-—-——----—---—~-~----—-~—--- - —-— —- — - — - ee > * TO LABEL ON) *-~-~---- >*. NUMBER ON * 
a 7 * POLISH * * POLISH * 
*. .* * - * * * 
*, C+ HHEKEHREEEEEKEKEKE EHKEEKEREEEEEKERES 
* NO 
* Re 
* * 
* EL #-> 
* A 
44% Vv q 
#0053301 7. gS 
E1 *, EY *, 
.* t, .* : *. SEEKS HERE EEKEE 
~* DATA ON *. NO ~* THIS STMT *. YES + * 
*.THE DO LOOPS , *—-~-~~—-—-—--—-—-—---—---—---------—-~-—-—- wen *.AN ARITHMETIC, *~--——-—-—-- >* RETURN * 
*.,OPLN ROLL. * *, 5 * 
+. 2 *. 3 HRESKRESEE AEE RE 
*. .* *. .* 
* YES * NO 
SSUES Tee ease eREKE PY REESE EEE 
; *. * HERES EEE REK EE 
: MOVE ONE *MOVE POLISH FOR« * * 
* GROUP OFF THE : * STMT TO AFTER poe RETURN * 
+ ROLL * POLISH ROLL : * 
+ *  eetacsacekest 
HER ECEREEET ER RE ES iuteaeessseeeeees 
~*. o*, ¥063377 ; 
G1 *. G3 *, KEERKGU ERKEEERERE 
.* +. * a ‘* 
.* THIS *. YES -* ANY NO CLEAR * 
*. STMT TARGET . *-~----~-—-~ >*. >* TRANSFERS OUT! #0-—————>#XTEND LBL ROLL * 
*. OF LOOP .* *. *. OF LOOP .* * 
SEE *. _* 3 .* , ; * 
NOTE *. C* *. 4 KEKE EERE EER HERE 
| NO * YES 
+*#4% 
* * 
* BY # 4063388 
+ * Pipe Ce Aaa AOTSPHOe TT AEES SS 
**KH * REMOVE * * 
5 GROUP DEFINING * * CLEAR * 
DO VARIABLE #* * XTEND TARGET * 
* FROM IND VAR * * LBL ROLL * 
* OLL * * * 
sala ladladliiadintaciotadindinaiadiniiailotied EEE KER EE ES ERES 


NOTE 
THE TEST COMPARES 
STA LBL PNTR 


WITH THE GROUP 
FROM THE ROLL 


72 





EKER TIERED EEE E EE 
*RESERVE PROGRAM* 
* SCRIPT ROLL, * 
* _ COPY SCRIPT * 
RELEASE * 


+ PT ROLL *# 
KEKEREEKKEREAEKESR 





REKEAKD OREREERESE 
*MOVE NEXT GROUP* 


* ROLL TO LOOP + 
*DATA PNTR, READ* 
« NXT LvL COUNT * 


SS Serre sees 
eEEE 

“* * 

lo>* EL * 

* * 
ee 4% 


063378 
* 


#eEETS ERE EE 


* * 
* SET INNER DO * 
ho——a~ CLOSED FLAG ons 


& 





* 


SRE EKEEKEEEES 


Chart BF. PROCESS END STATEMENT 


G0642 


HHEKADCHHEEHKRRAEE 


# + 
* ACTIVE ENDO * 
® STA XLATE * 
REDHERHEERHEEEE SE 


B2 
o* 


o* LAST 


ee 
te 
%e YES 


*#. STATEMENT A o* 
#. BRANCH -* 


te 
He 


o* 
o* 


#* NO 


C2 He 
o* He 
e*SUBPROGRAM *. NO 
He BEING o* 
#.eCOMPILED .* 
He o* 


HKEKEKDP RHKRHKHRHEE 


% *% 
* PLACE * 
# RETURN DRIVER * 
* ON POLISH * 
% * 
% % 


RERBERKRARARKAEE 


HKRKREHZJREREBEBKE 


* # 
>* RETURN * 
# x 


KEREMRARAKERECHAE 


KERKHFEC ZFRRETEKRHEKE 
* 


* BUILD 


% 
RARER EEEHEKEKENHE 


| 


! 


Vv 
HEED ZEMERLEERES 
* % 
>* RETURN * 
% +t 
HEEAARHEREREEENE 


% 

# 

>* STOP POLISH * 
* . 
* 

* 
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Chart BG. PROCESS POLISH 


aoe 


G0844 


HERE ADHERE RERED 
% # 
* PROCESS * 
* POLISH * 


RSERAKRAEBRKKKEEKE 


Vv 
HRKEHEKKRHDRHKKHEKRKHE 


& * 
* GET NUMBER * 
* OF WORDS ON * 
* POLISH ROLL #* 
& % 
* * 


RARREKRKRKEKRKEREE 


V ‘ 
RREHRCDEREKREER EH 
* * 
* PLACE * 
*#COUNT ON AFTER * 
* POLISH ROLL #* 
* * 
errr e eee re eters! 








Vv 
HEEEHOD RHRKKEHEED 
COPY POLISH 


* Sd 
* * 
# ROLL TO AFTER * 
# POLISH ROLL ¥* 
bd *% 
* # 


RAKAARAREKKERRH 


Vv 
HREHRHE D HEHEHE EH 
* 


# 
* . # 
*#RELEASE POLISH * 
* ROLL * 
# 


HRERRKKKEKKEREKKREKE 


Vv 
RRR CORRE REEEE 


* * 
* RETURN . * 
* * 


RUNGE EHRER 


Chart 05. 


G0359. 


OOCOAL OOO SSSORS 
® START A 
: ALLOCATION . 

Seeoeeseseseenes 


$6602p1 Oese086008 


INITIALIZE 


oeees 
(eax EX 


966690 SSS6SSHSSS8 


.G0543 


SO980C1SSeeR00RC8 


*A LBL/LSPG-CAAL¢ 
Go 0~$—89-0-~8- 8-8-8 


ie) 
SOCSSTHSSOSESSOOS 


Seecec2eseesccess 
COMY / PNTERR- CDA2® 


SASSOCIAT E * DUMMY ® 
*DIMS WITH ENTS, * 

* PRINT ERRORS * 
SCESeeteosesesess 


SSSSCSSCSHSSSSESSHSSS 


SSCS 2ESSHCSESSEE 
s e 


® SAVE OBJECT *# 
*MODULE LOCATION? 
: COUNTER : 


seoeseseooscocess 


G0O377 


BOSS475268S9SSS983 


7cH /OUT-CIA2e 
SHAREAHRERRARERES 


®ALLOC CM STG, 
2 S * 
* s E ° 


S0bsssecesesssses 


oe... 


PHASE 2 - ALLOCATE (Part 1 of 2) 


G0381 
SOOSSA I OCOSSOOSES 
see AL PTER~CKA2® 
—- o=- 8 0-0 6-8-6 -8-8 
-->® ALLOCATE ADDR ® 
*®FOR EQUIV PRINT® 
e ERRORS 6 
SOSeSSeseeeseeses 


OSSS SH JOSSSHSOOSE 
® TURN ON FLAG 
¢ FOR PASS 1 
*RESTORE OBJECT 
¢ MODULE 

* OUNTER 
SHOSSSSSSESSEKSESOS 


eeeeee 


S0eneCJeeceeseses 


¢ SIZE, RESERVE * 
Ps RoLL e 
SSSSSHSSOHSEHESSEEE 


INDICATED bd 
SONSSOSBOSEEBOOSS 


GO08a3 
SOeeenjeseascescse 
SPREP NMLST-CQA2* 
ens 8-6-0 0-8-8<8 

ALLOC - © 
° LIST TBL ADD ¢ 
*BASES OIRED * 
eceessscoedsoscecs 


G0397 
SSCEHTIOSSCSVOOOCE 
*SCALAR ALL CUA1° 
@-6-¢~¢-6-0-6-8-—6 
e e 
® SCALARS AN od 
@ REG°’D BASES ¢ 


8O1 
SeoteBusseseesese 


*ARRAY ALL CNA2 & 6 
*ALLOCATE ARRAYS* 
¢ AND ADD REQ‘D ®*@ 
* BASES * 
SESSEHASESSSSOEES 


SSOSSSSHSVSOCSESSSSSE 


60803 


SheseHheseesoesss 
SGBL SRG . AL CUAZ® 


: ALLOG SUBRTN. ec 


ADDR PRINT MAP * 
2 PUNCH ESDS ¢ 
SOSSHHHHESSESSESS 


G0342 


SOONS TH SSOSSCESESS 
phd ARG ALL CPA2® 


Se. $—- S—$—G--6~— 8-9-8 


ALLOCATE 
S ARGUMENT LISTS . 
SEHSHHSSHSS SH SSSES 


Section 2: 


2 
ceeeepgeseseeses’s 
*GBL . SPG | AL-CDA2¢ 


-$—-8—-86~6~ 9- 4-4-—6- 
------- > ADD BASES FOR ° 

® SUBPROGRAM * 

* ADDRESSES ¢ 


SSSHSSSSHSHHSHESSS 


G04a2 
SSESHHCHSSHHSESHOSS 
ORG ARG enh CPA2$ 
** ALLOCATE® ARG ¢ 
* LISTS, ADD. * 
*REQUIRED BASES °¢ 
SHSCSHHSCSHS SESE SES 


62 ; GO0371 GOURy 
0680 0f1 OS SSSssds SSSS$EHIZSSESSSSESSS SHHKEH I*AECSOCHHOOHS SOSHEH OH SCHSSSH+SEOSE 
*PR EQ/PTER-CBAL?O *PRC DO LPS- TCEA2® ¢ INDICATE * SLIT | CNS | AL-CRA2®* 
retard 6— 3—-6—- 6-6 -¢~3- 6- e PRESENT @ Fo a a Me OR BR o-%-~4-¢ 
*CALC PRINT *®CHECK “POR. URCLS* *® ALLOCATION IS * : ALLOC LITERAL + 
¢ AND PRINT ots *DO LOOPS AND PR* s IN OBJECT * _ * CONSTANTS ADO * 
*OUTSI NRRAY Sd ¢ Ss s * *BASES REQUIRED * 
cosseseccescesess SOSSCOSHESS SESE OEE Seeseseessesesess SECHHSOVES ES HDOCES 
o*. 60372 G0437 GOGKS 
El *. SOOOHE2 FOS OSESSES SOHOOSE ZOCCCCSeRES SOCHEESSOOROESEOED 
Pind *, *LBL/L SPGS-CPA2® $578 . TBL. AL~CLA2® THE ROUTINES *FORMAT ALL CSA2* 
e*3LOCK DATA *,. NO ~ $— $— 0 — F— 9— O- 3— . @—-¢- ¢-$~86-6- Sees ¢ ED IN PASS o—¢-6—-6-6—4- $-%-¢ 
+, SPECIFIED o ¢-— ¢ CONSTROCT : sUSING. SIZE EST, * DETCRMINE * ALLOC FORMAT ®* 
e ° * BRANCH TABLE @¢ *ALLOC SAVE ARE AREAe THE NUMBER e Ronen bh jece * 
e, o? s * BASE TBL, BRT * BASE TAB * RE e 
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HHKHERCOKEEKRHKEKEEKREEH 


* * 
PUNCH END CARD 
* * 


HREREREEHREREE 


< ee On centr SEED pees ND eetee 


HRHEERDDCERRKAKEKE 
% % 
a RETURN * 
* * 

HRHKRKREKEHKEHEEE 
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Chart FL. 


PUNCH NAMELIST TABLE POINTERS 


G0564 


HRRHAD HERE EEE EE 
* PUNCH 
#* NAMELIST MPY 


* DATA 
HEME NE EEE EHH 


* % 


v 








Vv 
o%e 
B2 tte 
o* te HERE B ZH EE 
e* DATA ON #%#e NO * * 
*%#eNAMELIST MPY .* >* RETURN * 
*#eDATA ROLL o* t * 
te o* 
He ot 
* YES . 





SRKKHERREREEHEE EE 


Vv 
HEKRKERCDRAAKKHERE HE 


* * 
*#CALCULATE NEXT * 
*  AODRESS IN * 
# TEMPORARY * 


# STORAGE AREA *. 
REE EE 


REE 
* + 
# D2 #—> 
* *% 
SERRE 
#056401. Vv 
HEKKEEDDOEHRKERAREE EE - 
# MOVE LOCATION #* 
* OF POINTER #* 
* FROM NAMELIST * 
#  MPY DATA # 
* ROLL | * 
MERE EBKEAH EY 





Vv 
ee 
E2 He 
et #e HEHE ZRH HEHEHE 
o* *. NO * * 
te ANYTHING oe t——————— > * RETURN * 
*. MOVED .* * * 
te o* FETE TE Ee AE EE EE 
%e ot 
* YES 


Vv : 
PERLHE DREHER EE 
* * 
*INITIALIZE TXT * 
* CARD. TO LOAD # 
* LOCATION * 


* INOICATED * 
RARER EE EEE 


eepeces savekuuas 
* SET * 
# UP RLD ENTRY #* 
* FOR WORD IN #* 
#NAMELIST TABLE * 
# * 

*& 


SHEER EAE HE RT 


| 
| 
| 


Vv 
REKEKHSCEKARKEEAKEE 
Sa * 
*MOVE MULTIPLIER* 
* TO TEMP AND * 
# CONST ROLL # 
+ * 
HRHEEREEREREREEAHEEE 


Vv 

SER JSSCHESEREHHRERE 
% 

* MOVE. 


# CARD IMAGE 
* 


$ 
# 
*POINTER TO TXT # 
* 
* 
RREHREHRREERSRRARAEE 





tHEE 
* * 
* B4 # 
+ # 

Pre 


RHEE 


** 
© 
> 

Mok kK 


Vv 
HERRRE BARE NE HH HEHE 


* * 


PUNCH THE TXT 
* CARD * 


RRRRKAREHHEREN 


Vv : 
RREEH CAME H EH HEH 
+ * 
* INCREASE * 


* TEMPORARY * 


*STORAGE POINTER* 
* * 


ME HE EE EE HE EE EE EE 


Vv. 
EHREE 


02 


REET 


Ok 
eR Ok 
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This appendix deals with the 
guage, the language in which the FORTRAN IV 
(G) compiler is written. The parts of the 
appendix describe this language in the 
following way: 


e The first part describes the POP 
instructions, which are grouped accord- 
ing to their functions. 


e The second part describes the labels 
used in the routines of the compiler. 


e The third part discusses the assembly 
and operation of the compiler, as it is 
affected by the use of the POP lan- 
guage. This part ends with a cross- 
reference list giving the mnemonic for 
each instruction, 
which represents it, and the instruc- 
tion group in which it is described. 


POP INSTRUCTIONS 


For the purpose of describing their 
operation, the POP instructions have been 
divided into groups according to the pri- 
Mary function which they perform. Where a 
particular POP instruction pertains to more 
than one group, it is described in the 
group which discusses its most important 
functions. | 


In the descriptions of the instructions, 
the following notational conventions are 
employed: 


1. Parentheses are used to indicate “the 
contents of;" thus (G) stands for the 
contents of storage address G, where 
all addresses are fullword addresses. 


2e The arrow is used to indicate trans- 
mission in the direction of the arrow; 
(G) + 1--> G reads: the contents of 


storage address G, plus one, are 
transmitted to storage address G. 
3. Wn (n=1, 2, 3, -»-) refers to the 


BOTTOM, BOTTOM— 1 r) eee 
the WORK roll. 


etc., words on 


It should be noted that in many cases 


the address field, G, of the instruction 
contains a value other than ae storage 
address (for instance, a roll name). in 


most of these cases, the symbolic reference 
which is used is defined in the program by 
means Of an EQU card. 


POP lan- 


the hexadecimal code 


APPENDIX A: THE POP LANGUAGE 


The mnemonic codes for the POP instruc- 
tions are of the form IEYxxx. In the 
following discussion, the characters IEY 
are omitted from the mnemonics in the 
interest of ease of reading, and only the 
xxx portion of the code appears. 


TRANSMISSIVE INSTRUCTIONS 


The instructions described in this sec- 
tion are primarily involved in moving 
information from place to place in storage. 
APH G: Assign and Prune Half 
The upper halfword of (WO) --> the 
lower halfword of G, where G is a 
storage address; the upper halfword 
of G remains unaltered; the BOTTOM 
of the WORK roll is reduced by 
four, thus pruning WO. 

ARK G: Assign Relative to Pointer and Keep 
(WO) --> P + (G), where P is the 
address defined by the pointer in 
W1 and G is a storage address; the 
BOTTOM of the WORK roll is reduced 
by four, thus pruning the value 
assigned and keeping the pointer. 
ARP G: Assign Relative to Pointer | 

(wO) --> P + (G), where P is’ the 
address defined by the pointer in 
Wi and G is a storage address; the 
BOTTOM of the WORK roll is reduced 
by eight, thus pruning the current 
WO and Wi. 

ASK G: Assign to Storage and Keep 

(WO) --> G, where G is a storage 
address; the BOTTOM of the WORK 
roll is unchanged. 

ASP G: Assign to Storage and Prune 

(WO) --> G, where G is a storage 
address; the BOTTOM of the WORK 
roll is reduced by four, thus prun- 
ing the current WO. 

BOP G: Build on Polish 

The control driver G is built on 
the POLISH roll, where the G field 


of the instruction is. the lower 
eight bits of the ADDRESS portion 
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CAR G: 


CLA G: 


CNT G3 


CPO G?: 


CRP G: 


EAD G: 
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of the desired driver. 


of bytes moved. 
Gis increased by the number of 


(The TAG 
field of the pointer contains zero, 
and the OPERATOR field contains 
255.) 


Copy and Release 


Copy roll G, where G isa roll 
number, to roll T, and release roll 
G (ise., restore it to its  condi- 
tion before the last reserve); the 
number T is found in WO; 
of the WORK roll is reduced by 
four. If roll G is in the reserved 
state when this. instruction is 
executed, the instruction sets its 
BOTTOM to (TOP) minus four; if the 
roll is not BESSRVESS BOTTOM is set 
to (BASE). . 


Clear and Add 

Clear WO; (G) => WO, where Gis a 
storage address; the BOTTOM of the 
WORK roll is unchanged. 


Count 


The number of words on roll G --> 
WO, where G is a roll number; the 
BOTTOM of: the WORK roll is 


increased by four. 
Copy Plex On 


The plex pointed to by the pointer 
in WO is copied to roll G, where G 
is the number of the target roll, 
except for the first word of the 
plex (which holds the number of 
words in the plex, exclusive of 
itself). The BOTTOM of the WORK 
roll is reduced by four, thus prun- 
ing the pointer. The BOTTOM of 
roll G is increased by four for 
each word moved; the BOTTOM of the 
Original roll is unchanged. 


Copy Relative to Pointer 


Copy roll S to roll G, where G is a 
roll number, beginning with the 
group indicated by the pointer in 
WO, to the BOTTOM of the roll. The 
roll number  S is also provided by 
the pointer in WO. The BOTTOM of 
roll S is decreased by the number 
The BOTTOM of roll 


~The BOTTOM of the 
thus, the 


bytes moved. 
WORK roll is unchanged; 
pointer remains. 


Extract Address 


The ADDRESS portion of (G) --> WO, 
where G is a storage address; the 


the BOTTOM. 


ECW 


EOP 


ETA 


FET 


FLP 


FRK 


PTH 


G3: 


~The OPERATOR portion of 


BOTTOM of the WORK roll is 


increased by four. 
Effective Address to Work 


G --> WO, where G iS a storage 
address; the BOTTOM of the WORK 
roll is increased by four. 


Effective Constant Address to Work 


where G is ae storage 
address which refers to a constant 
under a constant base. The BOTTOM 
of the WORK roll is increased by 
four. | : 


G --> WO, 


Extract Operator 


(G) --> WO 
(right adjusted), where G is a 
storage address; the BOTTOM of the 
WORK roll is increased OY, four. 


Extract Tag 

TAG portion of (G) --> TAG portion 
of WO, where G is a storage 
address; the BOTTOM of the WORK 
roll is increased by four. 

Fetch 


(G) --> WO, where G is a storage 
address; the BOTTOM of the WORK 
roll is increased by four. 

Flip 


Invert the order of roll G, where G 
is a roll number, word for word. 


Fetch Relative to Pointer and Keep 


(P + (G)) --> WO, where P is the 
address defined by the pointer in 
WO and G is a storage address; the 
BOTTOM of the WORK roll is 
increased by four; thus, the 
pointer remains in Wi. 

Fetch Relative to Pointer 

(P + (G)) --> WO, where P is the 


address defined by the pointer in 
WO and G is a storage address; the 


BOTTOM of the WORK roll is 
unchanged; thus, the pointer is 
destroyed. 7 ; 


Fetch Half — 


The lower halfword of (G) --> upper 
halfword of WO, where G is a 
storage address; the lower half- 


IAD G: 


IOP G: 


ITA G: 


ITM G: 


LCE G3: 


LCF Gs: 


LCT Gs: 


indicates 


If (ANSWER BOX) = false, 


zero; the 
roll is 


word of WO is set to. 
BOTTOM of the WORK 
increased by four. 


Insert Address 


The ADDRESS portion of (G) --> the 
ADDRESS portion of the pointer in 
WO, where G is a storage address; 
the BOTTOM of the WORK roll is 
unchanged. 


Insert Operator 


G --> OPERATOR portion of the 
pointer in WO, where the G field of 
the instruction is the desired 
OPERATOR value; 
WORK roll is unchanged. 


Insert Tag 

TAG portion of (G) --> TAG portion 
of the pointer in WO, where G is a 
storage address; the BOTTOM of the 
WORK roll is unchanged. 

Insert Tag Mode 


Mode portion of the TAG field of 


(G) --> mode portion of the TAG 


field of the pointer in WO, where G 


is a storage address; the BOTTOM of 


the WORK roll is unchanged. 
Last Character Error 

The last character count and the 
address G --> ERROR roll, where G 
is the address of the message for 
the error. The count of errors of 
the severity associated with the 
message is increased by one, and 
the MAX STA ERROR NUMBER 
the highest severity 


errors for the present 
is updated as PegurEed: 


level of 
oon 


Last phaesctes Error if False 


the 
and the address 
G --> ERROR roll, where. G is’ the 
address of the message for the 
error. The count of errors of the 
severity associated with the mes- 
sage is increased by one, and the 
MAX STA ERROR NUMBER is Upestce as 
required. If (ANSWER BOX). true, 
the instruction does nothings 


character count 


Last Character Error if True 


If- (ANSWER BOX). true, the last 
eharacter | count ona the address 
-G --> ERROR roll, where G is the 
address of the message for the 


the BOTTOM of the 


(which. 


last 


LGP G: 


LSS G3: 


MOC G: 


MON G: 


NOG G: 


NOZ G: 


and 3, 


the. 


error. The count of errors of the 
severity associated with the mes- 
Sage is increased by one, and the 
MAX STA ERROR NUMBER is updated as 
required. If (ANSWER BOX) = false, 
the instruction does nothing. 


Load Group from Pointer 


Loads the group specified by the 
pointer in WO into SYMBOL 1, 2, and 
3, DATA 0, 1, 2, 3, 4, and 5. The 


number G is the number of bytes to 


be loaded; if G=0, the entire group 
is loaded. The BOTTOM of the WORK 
roll is unchanged; hence,’ the 


pointer remains in WO. 


Load Symbol from Storage 


Loads the (G and Gt4), where Gis a 
storage address, into SYMBOL 1, 2, 
and DATA 0. 


Move on Code 


G halfwords, where G is an even 
number, are to be moved from the 
WORK roll to the CODE roll. A word 
containing a special value in the 
first two bytes and the number of 
words transferred in the last two 
bytes are first placed on the CODE 
roll. G/2 words of information are 
then moved from the WORK roll to 
the CODE roll; the BOTTOM of the 
CODE roll is increased by four for 
each word placed on the roll; the 
BOTTOM of the WORK roll is reduced 
by four for each word moved from 
roll. A location counter is 
increased by the number of bytes of 
object code placed on the roll. 


Move on 
(WO) --> roll G, where es is the 
roll number; the BOTTOM of roll G 


is increased © by four; the BOTTOM of | 
the WORK cae is decreased by four. 


Number of Groups 


The number of groups on roll G ==> 
WO, where G is the roll number; the 
BOTTOM of the roll is 


WORK 
increased by four. ae 


Nonzero 


A nonzero value --> G, where Gisa 


storage address. 
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PGO G: 


PGP G: 


PLD Gs. 


PNG G: 


POC G: 


PST Gs 


SWT G: 


130 


words 


Place Group On 


A group from SYMBOL 1, 2, and 3 and 
DATA 0, 1, 2, 3, 4 and 5 --> roll 
G, where Gis the roll number, by 
group status; the BOTTOM of roll G 
is increased by group size. 


Place Group from Pointer 


The group in SYMBOL 1, 2, 3, DATA 
O, 1, 2, 3, 4 and 5 is placed ona 
roll according to the pointer in 


WO. The number G is the number of 
bytes to be moved; if G=0, an 
entire group is moved; the BOTTOM 


of the WORK roll is unchanged. 


Precision Load 


(G and G+4) --> MPAC 1 and MPAC 2, 
where G is a storage address. 


Pointer’ to New Group 


Builds a pointer to the first byte 
of the next group to be added to 
roll G, where G is the roll number, 
and places the pointer in WO; the 
BOTTOM of the WORK. roll is 
increased by four. 


Place on Code 


The data located at storage address 
G+4 and following is to be moved to 
the CODE roll. The number of half- 
to be moved is’ stored in 
location G and is an even number. 
A word containing a special value 
in the first two bytes and the 
number of words of data in the last 
two bytes is first placed on the 
CODE roll. The indicated data is 
then moved to the CODE roll, and 
the BOTTOM of the CODE roll is 
increased by four for each word 
placed on the roll. A location 
counter is increased by the number 
of bytes of object code placed on 
the roll. 


Precision Store 


(MPAC 1 and MPAC 2) --> G and Gt4&, 


where G iS a storage address. This 
instruction performs a doubleword 


Switch 


Interchanges (WO) and (G), where G 
is a storage address; the BOTTOM o 
the WORK roll is unchanged. 


ZER G3 


Zero 


0 --> G, where G is a 


storage 
address. 


ARITHMETIC AND LOGICAL INSTRUCTIONS 


The following instructions are primarily 
designed to perform arithmetic and logical 


manipulations. 

ADD G: Add 
(G) + (WO) --> WO, where G is a 
Storage address; the BOTTOM of the 
WORK roll is unchanged; hence, the 
initial contents of WO are 
destroyed. 


AFS Gs 


AND G3: 


DIM G: 


DIV G: 


IOR Gs: 


LLS G: 


result 


Add Four to Storage 


(G) + 4 --> G, where G is a storage 
address. 


And 

(G) AND (WO) --> WO; that is, a 
logical product is formed between 
(G) and (WO), and the result is 
placed in WO. The BOTTOM of the 
WORK roll is unchanged; hence, the 
initial contents of wo are 
destroyed. 

Diminish 

(G) - 1--> G, where G is a storage 
address. 

Divide 
(WO) / (G) --> G, where G is a 
storage address; the remainder, if 
any, from the division is lost; a 


true answer is returned if there is 


no remainder; the BOTTOM of the 
WORK roll is unchanged; hence, the 
initial contents of wo are 
destroyed. 


Inclusive Or 


The inclusive OR of (WO) 
where G is a storage location, is 
formed, and the result is placed in 
WO. The BOTTOM of the WORK roll is 
unchanged; hence, the initial con- 
tents of WO are destroyed. 


and (G), 


Logical Left Shift 


(WO) are shifted left G places; the 
is left in WO; bits shifted 
out at the left are lost, and 
vacated bit positions on the right 
are filled with zeros. 


LRS G: 


MPY G: 


. PSP -G; 


SUB G:; 


TLY G?: 


Logical Right Shift 


(WO) are shifted right G _ places; 
the result is left in W0QO; bits 
shifted out at the right are lost, 
and vacated bit positions on the 
left are filled with zeros. 


Multiply 


(G) * (WO) --> WO, where G iS a 
storage address; the BOTTOM of the 
WORK roll is unchanged; hence, the 
initial contents of wo are 
destroyed. 

Product Sign and Prune 

The exclusive OR of (WO) and (G), 
where G is a storage location, 
replace the contents of G; the 


BOTTOM of the WORK roll is reduced 
by four, thus pruning WO. 


Subtract 

(WwO) - (G) --> WO, where G is a 
storage address; the BOTTOM of the 
WORK roll is unchanged; hence, the 
initial contents of WO are 
destroyed. 

Tally 


(G) + 1--> G, where G is a storage 
address. 


DECISION MAKING INSTRUCTIONS 


These instructions inspect certain 


ditions and return either a true or false 
answer in the ANSWER’ BOX. Some of the 
instructions also transmit stored informa- 


tion from place to place. 


CSA G: 


LGA G: 


-into 


Character Scan with Answer 


If G = (CRRNT CHAR), the scan arrow 
is advanced and a true answer is 
returned; otherwise, the scan arrow 
is not advanced and a false answer 
is returned. | 


Load Group with Answer 


The group from the BOTTOM of roll 
G, where Gis the roll number and 
roll G has been flipped, is loaded 
SYMBOL 1, 2, 3, DATA 0, 1, 2, 
3, 4, and 5 (as many words as 
necessary); if the roll is empty or 
if the group is a marker symbol, a 


con- 


MOA G: 


OSA G: 


SAD G3: 


SBP G3: 


SBS G3: 


returned. 


false answer is returned; other- 
wise, a true answer is returned; 
the BOTTOM of roll G is reduced by 
group size. 


Move off with Answer 


If roll G, where G is the roll 
number, is empty, a false answer is 
Otherwise, the BOTTOM of 
roll G is reduced by four, pruning 
the word moved; the BOTTOM of the 
WORK roll is increased by four; a 
true answer is returned. 


Quote Scan with Answer 


If the quotation mark (sequence of 
characters) beginning at storage 
address G (the first byte in the 
quotation mark is the number of 
bytes in the quotation mark) is 
equal to the quotation mark start- 
ing at the scan arrow, advance the 
scan arrow to the next active 
character following the quotation 
mark, and return a true answer; 
otherwise, do not advance the scan 
arrow and return a false answer. 


Set on Address. 


If G = ADDRESS portion of the 
pointer in WO, return a true answ- 
er; otherwise, return a false 
answer. 


Search by Stats from Pointer 


Search the roll specified by the 
pointer in WO, beginning with the 
group following the one specified 
by the pointer for a group which is 
equal to the group in the central 
items SYMBOL 1, 2, 3, etc.e, accord- 
ing to the group stats values 
stored at locations Gt4 and G+8 
(these values are in the same order 
as those in the group stats 
tables). The roll number multip- 
lied by four is stored at location 
G. If a match is found, return a 
true answer, replace the pointer in 
WO with a pointer to the matching 
group, and continue in sequence. 
If no match is found, returna 
false answer, prune the pointer in 
WO, and continue in sequence. This 
instruction is used to continue a 
search of a roll according to group 
stats values other than those norm 
ally used for the roll. 


Search by Stats 


If the roll, whose number multip- 
lied by four is in storage at 
location G, iS empty, return a 
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SCE G: 


SCK Gs 


SFP G: 


SLE G: 
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character code whose bit 


_ which 


pointer in WO 


false answer. Otherwise, search 
that roll against the central items 
SYMBOL 1, 2, and 3 and DATA 0Q, 1, 
2, 3, 4, and 5, as defined by the 
group stats values stored at loca- 
tions G+4 and Gt8 (these values are 
in the same order as those in the 
group stats tables); if a match is 
found, place a pointer to the 
Matching group in WO, increase the 
BOTTOM of the WORK roll, and return 
a true answer; if no match is 
found, return a false answer. 
instruction is used to search a 
roll according to group stats 
values other than those normally 
used for that roli. 


Set if Character Equal 


If G = {(CRRNT CHAR), return a true 
answer; otherwise, return a false 
answer; in neither case is the scan 
arrow advanced. | 


Set on Character Key 


If (CRRNT CHAR) displays any of the 
character keys of G, where G is a 
settings 
describe a group of characters, 
return a true answer; otherwise, a 
false answer is returned; in neith- 
er case is the scan arrow advanced. 


Search from Pointer 


Search the roll specified by the 


pointer in WO, beginning with the 
group following the one specified 
by the pointer in WO, for a group 
is. equal to the. group in 
SYMBOL 1, 2, 3, DATA 0, 1..., etc., 
by roll statistics. If a match is 
found, return a true answer, 
replace the pointer in WO with a 
pointer to the matching group, and 
jump to G, where G must be a local 
address. If no match is found, 
return a false answer, prune the 
(reduce the BOTTOM of 
the WORK roll by four), and con- 


tinue in sequence. 


Set if Less or Equal 


If (WO) < (G), where G is a storage 
address, a true answer is returned; 
otherwise, a false answer is 


’ yeturned. The comparison made con- 


Siders the two values to be signed 
quantities. = © | 


This» 


SNE G: 


SNZ G: 


SOP G: — 


SPM G3: 


SPT G: 


SRA G: 


SRD G3: 


STA G: | 


address, 


2, and 3 


“Statistics; if 


If roll G, 


. true answer; 
‘false answer. 


Set if Not Equal 


If (WO) # (G), where G is a storage 
a true answer is returned; 


otherwise, a false answer is 


returned. 


Set if Nonzero 


0, where G is a storage 
return a true answer; 


If (G) # 
address, 


otherwise, return a false answer. 


Set on Operator 


If G = OPERATOR portion of the 
pointer in WO, return a true answ- 
er; otherwise, return a false 
answer. 


Set on Polish Mode 


If the mode portion of the TAG 
field of the (G) = the mode portion 
of the TAG field of the pointer in 
P1, where Gis a storage addess, | 
return a true answer; otherwise, 
return a false answer. 


Set on Polish Tag 


If the TAG field of the (G) = the 
TAG field of the pointer in Pi, 
where G is a storage address, 
return a true answer; otherwise, 
return a false answer. | 


Search 

If roll G, where G is. the roll 
number, is empty, return a false 
answer; otherwise, search roll G 


against the central items SYMBOL 1, 
and DATA 0, 1, 2, 3, 4, 
defined by the roll 
a match is found, 
place a pointer to the matching 
group in WO, increase the BOTTOM of 
the WORK roll, and return a true 
answer; if no match is found, 
return a false answer. 


and 5, as 


Set if Remaining Data 


where G is the roll 
is not empty, return a true 
false 


number, 
answer; otherwise, return a 
answer. 


Set on Tag 


If the TAG portion of (G) = the TAG 
portion of the pointer in WO, where 
G is a storage address, return a 
otherwise, return a 


STM G: 


Set on Tag Mode 


If the mode. portion of the TAG 
field of the (G) = the mode portion 
of the TAG field of the pointer in 


JUMP INSTRUCTIONS 


The 
normal 
instructions to be altered, 
tionally or 
"Labels" 


tions 


WO, where Gis a storage address, 
return a true answer; otherwise, 
return a false answer. 

following instructions cause _ the 


sequential | operation of the POP 
either uncondi- 
conditionally. See the sec- 

and "Assembly and Operation" 


in this Appendix for further discussion of 
jump instructions. 


CSF G: 


JAF G: 


JAT G: 


JOW G: 


JPE G: 


in sequence. . 


in sequence. 


Tf (wo) 


Character Scan or Fail 


If G = (CRRNT CHAR), advance the 
scan arrow to .the next active 
character; otherwise, jump to 
SYNTAX FAIL. — s ex 


Jump if Answer False } 


If (ANSWER BOX) = false, 
where G is either a global or a 
local address; otherwise, continue 
. One of two operation 
codes is produced for this instruc- 


tion depending on whether G is a 


global or local label. 


Jump if Answer True 


If (ANSWER BOX) = true, jump to G, 
where G is either. a global or a 
local address; otherwise, continue 


codes is produced for this instruc- 


tion. depending on whether G is a 


global or a local label. 
Jump on Work 


= 0, decrease the BOTTOM of 
the WORK roll by four and jump to 
G, where G is either a global or a 
local address; otherwise, reduce 
word 0 by one, ~-> WO, and continue 
in sequence. One of two operation 
codes is produced for this instruc- 
tion, 
global or a local label. 


Jump and Prepare for Error 


The following values are ‘saved in 
storage: the location of the next 
- instruction, the last character 


count, the BOTTOM of the EXIT roll, 
and the BOTTOM of the WORK roll. 


One of two operation - 


depending on whether G is a 


JRD G: 


JSB G: 


JUN G: 


OSF G: 


XIT 


and a jump is made to the 
G, which must be a global address. 


EXIT roll; 
global address. 


The JPE FLAG is set to nonzero, and 
a’ jump is taken to G, which may 
only be a local address. — 


Jump Roll Down 


This instruction manipulates a 
pointer in WO. If the ADDRESS 
field of that pointer is equal to 0 


(pointing to the word preceding the 


beginning of a reserved area), the 
ADDRESS field is increased to four. 
If the ADDRESS field of the pointer 
is equal to any legitimate value 
within the roll, it is increased by 
group size. If the ADDRESS’ field 


of the pointer indicates a location 
- beyond the BOTTOM of the roll, 


the 
pointer is pruned (the BOTTOM of 
the WORK roll is reduced by four), 
location 


Jump to Subroutine 


Return information is placed on the 
jump to G, which is a 


Jump Unconditional 


Jump to G, which is either a global 
or a local address. One of two 
operation codes is produced for 
this instruction, depending on 
whether G is a global or a local 
label. 


Quote Scan or Fail. 


If the quotation mark (sequence of 
characters) beginning at storage 
address G (the value of the first 
byte in the quotation mark is the 


number of bytes in the quotation 
mark) is equal to the quotation 
mark starting at the scan arrow, 


advance the scan arrow to the first 


active character beyond the quota- 
tion mark; SENEEM ESC jump to SYN- 
TAX FAIL. 


Exit 
Exit from the interpreter; the code 


which follows is written: in 
assembler language. 


ROLL CONTROL INSTRUCTIONS 


instructions concerned with 


These . are , 
the control of the rolls used in the 
compiler. 
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POW G: Prune off Work 
Reduce the BOTTOM of the WORK roll 
by four times G, where G is an 
integer, thus pruning G words off 
the WORK roll. 

REL G: Release 
Restore roll G, where G is the roll 
number, to the condition preceding 
the last reserve; this sets BOTTOM 
to (TOP) reduced by four if the 
roll is reserved, or to (BASE) if 
the roll is not reserved; TOP is 
set to the value it had before the 
reserve. 
Reserve 


RSV G: 


Reserve roll G, where G is the roll 
number, by storing (TOP) —- (BASE) 
on the roll, increasing BOTTOM by 
four, and setting TOP to (BOTTOM); 
this protects the area between BASE 
and TOP, and allows ascending 
addresses from TOP to be used as a 
new, empty roll. 


CODE PRODUCING INSTRUCTIONS 


These POP instructions construct object 
module code on the CODE roll. ‘Each object 
module instruction constructed results in 
the placing of a 2-word group on the CODE 
roll. The instruction generated, in bi- 
nary, is left justified in this group. In 
the case of halfword instructions, the 
remainder of the first word is filled with 
ZELO. The second word contains a pointer 
to the instruction operand, except in the 


case of 6-byte instructions when the last 
two bytes of the group contain the value 
ZErOe ; , 

BID G: Build Instruction Double 


The instruction 
where Gis an instruction. number 
which indicates the exact instruc- 
tion to be generated, is built on 
the CODE roll, where WO contains a 
pointer to the first operand and Wl 


contains a pointer to the second 
operand. The BOTTOM of the CODE 
roll is increased by eight. - ‘The 
BOTTOM of the WORK roll is reduced 
by eight; thus, both pointers are 
pruned. A location counter is in- 


creased by one for each byte of the 


instruction. 
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indicated by G, 


BIM G: Build Instruction by Mode 

indicated by G, 
instruction number 
which indicates the class of the 
instruction only. For example, 
LOAD INSTR as opposed to LE INSTR 
is built on the CODE roll,. where WO 
contains a pointer to the _ second 
operand. A pointer to the accumu- 
lator which holds the first operand 
is contained in the variable CRRNT 
ACC. The instruction mode is 
determined by inspecting the TAG 
fields of the pointers; the BOTTOM 
of the CODE roll is increased by 
eight; the BOTTOM of the WORK roll 
is reduced by four, thus pruning 
the pointer. A location counter is 
increased by one for each byte of 
the generated instruction. 


The instruction 
where G is.) an 





BIN G: Build Instruction 

The instruction indicated by G, 
where G is an instruction number 
which indicates the exact instruc- 
tion to be built, is constructed on 
the CODE roll. The WORK roll holds 
from zero to three words of infor- 
mation required for producing the 
instruction. For instructions 
requiring no operands, nothing 
appears on the WORK roll. For 
instructions requiring one operand, 
a pointer to that operand appears 
in WO. For two operand instruc- 
tions, a pointer to the first 
operand appears in WO and a pointer 
to the second operand is in Wl. 
For input/output instructions, W1 
holds a constant which’ becomes part 


of the instruction. For storage- 
to-storage move instructions, W2 
holds the length. The BOTTOM of 


the CODE roll is increased by eight 
‘to reflect the addition of the 
group. The BOTTOM of the WORK roll 
is reduced by four for each word of 
information found on that _ roll; 
thus, all the information is 
pruned. A location counter is 
increased by one for each _ byte of 
the instruction. 


ADDRESS COMPUTATION INSTRUCTIONS 


whose G fields 
be used to 


~The POP instructions © 
require storage addresses may 


refer to WORK roll groups, provided the 
storage address of the desired group is 
first computed. This computation must be 


execution time, Since the 
location of WO, for example, varies as the 
program is operated. The instructions in 
this category perform these computations and 
jump to the appropriate POP, which then op- 
erates using the computed address. 


performed at 


WOP G: WO POP 


Compute the address of the current 
WO and jump to the POP indicated by 
G, where G is’ a POP instruction 
which normally accepts a storage 
address in its G field. 


W1P G: W1 POP 


Compute the address of the current 
Wi and jump to the POP indicated by 
G, where G is a POP instruction 
which normally accepts. a storage 
address in its G field. 


W2P G: W2 POP 


Compute the address of the current 
W2 and jump to the POP indicated by 
G, where G is_ a POP instruction 
which normally accepts a storage 
address in its G field. 
W3P G: W3 POP 
Compute the address of the current 
W3 and jump to the POP indicated by 
G, where G is a POP instruction 
which normally accepts a storage 
address in its G field. 
W4HP G: W4 POP 
Compute the address of the current 
W4 and jump to the POP indicated by 
G, where G is~' a POP instruction 
which normally accepts aé_ée storage 
address in its G field. 


INDIRECT ADDRESSING INSTRUCTION 


Indirect addressing is provided for POP 
instructions whose address fields normally 
require storage addresses by means of the 
following instruction. 

IND G: Indirect 

The address contained in the 
storage address INDIRECT BOX is 
transmitted to the POP indicated by 
G, where G is a POP instruction 
which requires a storage address in 
its G field, and a jump is made to 
that POP. The POP "G" operates in 
its normal fashion, using the tran- 
smitted address. 


LABELS 
In the POP language, storage locations 
containing instructions or data may be 


named with two types 
labels and local labels. Global labels are 
unique within each phase of the compiler 
(but not from one phase to another); these 
labels may be referred to from any point in 
the phase. Local labels are also unique 
within each phase (but not between phases); 
however, these labels may be referred to 
only within the global area (that is, the 
area between two consecutive global labels) 
in which they are defined. 


of labels, global 


GLOBAL LABELS 


The global labels which appear ona 
System/360 assembler listing of the compil- 
er are distinguished from local labels in 
that the global labels do not begin with a 
pound signe Most of the global labels are 
of the form Gdddd, where each d isa 
decimal digit and the 4-digit value dddd is 
unique for the global label. Labels of 
this form are generally assigned in ascenc- 
ing sequence to the compiler routines. All 
remaining global labels are limited toa 
length of seven characters. 


In contrast, the routine and data names 
used throughout this publication are 
limited only to a length of 30 characters. 
A comment card containing the long name 
used here precedes the card on which each 
global label is defined. In addition, the 
longer name appears aS a comment on any 
card containing a POP instruction which 
refers to the global label. 


Example: 


. G0336 — STA GEN FINISH 
G0336 TEYMOA GO494 MOA DO LOOPS OPEN ROLL 


Explanation: The second card shown defines 
the global label G0336. The first card, a 
comment card, indicates the longer name of 
the routine, STA GEN FINISH. The second 
card contains a reference to the label 


-G0494; the longer form of this label is DO 


LOOPS OPEN ROLL, as indicated by the 
comment. ' 
Occasionally, several comment cards with 


identical address fields appear in sequence 
on the listing. This occurs when more than 
one long label has been applied to a single 
instruction or data value. The long labels. 
are indicated in the comments fields of the 
cards. : : 
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Example: nage fs aie 
- - ACTEST — AC TEST 
& ss ACTEST TESTAC 


ACTEST IEYSOP G0504 SOP FL AC OP MARK 


e 
¥ 


Explanation; The three cards shown define 
the global label ACTEST. One long form of 
this label is AC TEST, as indicated by the 
comment on the first card. The second card 
indicates that the name TESTAC has also 
been applied to this location, and that it 
also corresponds to ACTEST. | 


LOCAL LABELS 


All local labels consist of a pound sign 
followed by six decimal digits. If the 
preceding global label is of the form 
Gdddd, the first four digits are identical 
to those in the global name. The remaining 
two digits of the local label do not follow 
any particular sequence; they are, however, 
unique in the global area. 


The local 
appearance in 
containing a 


label is defined by its 
the name field of a card 
POP or assembler language 


instruction. 

Example: 

* G0268 - PROCESS SCALAR ROLL 
G0268 


IEYSRD G0432 SRD SCALAR ROLL 


e 7 


#026811 IEYJOW #026821 
#026802 IEYITA G0359 ITA CED TAG MARK 


Explanation: The 


defined by the second card in the sequence 


shown. The next two cards define, respec- 
tively, the local labels #026811 and 
#026802. In addition, the third card in 


the sequence contains a reference to the 
local label #026821, which is presumably 
defined elsewhere within the global area 
shown here. — 


ASSEMBLY AND OPERATION 


The ‘compiler is ‘assembled with each POP 
instruction defined aS a macro. Unless 
"Quick Link" output has been designated to 
the macro by means of the assembler 
instruction SETC *QLK*, the resulting code 
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global. label 60268 is. 


consists of two i1-byte address constants 
per POP instruction. This 16-bit value 
represents an 8-bit numeric operation code 
and an 8-bit operand or relative address. 


definition of the 8-bit operand or 
according to the 


The 
relative address varies 
POP instruction used. Roll numbers appear 
in this field for instructions requiring 
them. For instructions which refer to 
storage locations relative to.CBASE (see 
"Compiler Arrangement and General Register 
Usage") or to other base addresses, the 
word number relative to the appropriate 
base is used. The format for jump instruc- 
tions is discussed in the following 
paragraphs. 


When Quick Link is specified, machine 
language instructions are generated for the 
following POP instruction. (See “Assembler 
Language References to POP Subroutines. ") 


POP INTERPRETER | 


The assembled POP code is interpreted by 
a short machine language routine, POP 
SETUP, which appears with the POP subrou- 
tines at the beginning of the compiler. 


POP SETUP inspects each pair of address 
constants in sequence, and, using the 8-bit 
operation code as an index into the POP 
jump table, a table which correlates opera-— 
tion codes for the POPs with the addresses 
of the POP subroutines, transfers control 
to the appropriate POP subroutine. 


Thus, on encountering the hexadecimal 
value 081A, POP SETUP indexes into the POP 
jump table (labeled POPTABLE) at the eighth 
byte, counting from zero. The value found 
at this location is 0158 (hexadecimal); 
this is the address, relative to the base 
of the POP jump table, of the POP subrou- 
tine for the POP numbered 08 (IEYSUB). 
When this value is added to the beginning 
address of the POP jump table, the absolute 
address of IEYSUB is produced, and POP 
SETUP performs a branch to that location. 


IEYSUB then operates, using the relative 
address 1A (which it finds in general 
register 7, ADDR), and returns via POPXIT, 
register 6; in this case the return is to 
POP SETUP, which then continues with the 
next POP in sequence. The register POPADR 
is used to keep track of the location of 
the POP being executed. | | 


This sequential operation can be inter- 
rupted by means of POP jump (branch) 
instructions, which cause an instruction 
other than the next in sequence to be 
operated next. The XIT. POP. instr“ctior 


also alters the sequence by causing the 
interpreter to release control, performing 
a branch to the assembler language instruc- 
tion following the XIT. This device is 
employed to introduce assembler language 
coding into the compiler routines when this 
is more efficient than the use of POPs. 
Assembler language sequences sometimes ter- 
minate with a branch to POP SETUP, so that 
it may resume the execution of POP 
instructions. 


ASSEMBLER LANGUAGE REFERENCES TO POP 
SUBROUTINES 


In some of the routines of the compiler, 
the operation of POP SETUP is bypassed by 
assembler language instructions which make 
direct reference to the POP subroutines. 
In these sequences, a pair of machine 
language instructions performs the function 
of a single POP instruction. For example, 
the instructions | east 


LA ADDR, ONE-CBASE(0, 0) 
BAL POPXIT, FETO | 


accomplish the 


function of 
instruction 3 


the . POP 


IEYFET ONE 


but bypass the operation of POP SETUP. The 
IEYFET routine, (referred to by its label 
FETQ) returns, via POPXIT, to the next 
instruction. Note that the first instruc- 
tion of the pair sets ADDR to the _ correct 
value for the operand of the TEYFET opera- 
tion; this would be done by POP SETUP if it 
interpreted FEYFET: ONE. | 


GLOBAL JUMP INSTRUCTIONS 


The labels referred to in POP global 
jump instructions, jump instructions which 
branch to global labels, always end with 
the character J. These global labels refer 
to the global ‘jump table, a table whose 
fullword entries contain the relative 
addresses of global labels which are the 
targets of branches. Each phase of the 
compiler has a global jump table. The 
table is labeled JUMP TABLE. 


jump instruc- 


References in POP global 
tions to the global 
assembled as 
that table. Each entry in the table con- 
tains the address, relative in bytes to 
CBASE, of the kabel whose 
identical to that of the global jump table 
entry except that it does not include the 
terminal J. 


tion of POP SETUP, 


relative word addresses in 


spelling is 


Thus, the instruction IEYJUN G0192J is 
assembled as 5002, for example, where the 
global jump table begins: | 


: eS a 
GO075d |  5A0 | 
GO111I | 752 | 
G01920 | BO2 | 

fee 


On encountering this instruction, POP SETUP 
loads its address field (02), multiplied by 
four (08), into the register ADDR. It then 
jumps to. the POP subroutine for IEYJUN. 


The ITEYJUN subroutine uses ADDR as an 
index into JUMP TABLE, finding the value 
BO2. This value is placed in the register 
TMP and ae branch is made to the location 
defined by the sum of the contents of TMP 
and the contents of CONSTR, which holds the 
location CBASE. Thus, if the location 
CBASE is 10B0, the location branched to is 
1BB2, the location of the routine labeled 
G0192, and the instruction at that location 
is operated next. 


Since the POP subroutines for global 
jumps branch directly to the target loca- 
tion, the instruction at that location must 


be a machine language instruction rather 
than .a POP. Moreover, all jump target 
routines which contain local jumps must 


reset POPADR to reflect the new location. 
Thus, routines which are jump targets) and 
which are written in POPs begin with the 
instruction | 
BALR POPADR, POPPGB 

which sets POPADR to the location of the 
first POP instruction in the routine and 
branches to POP BASE, the address of which 
is held in POPPGB. At POP BASE, the 
contents of POPADR are saved in LOCAL JUMP 
BASE, POPXIT is set to the beginning loca- 
and POP SETUP begins 
operating. For the sake of brevity, this 
instruction is coded as 


BALR A,B 
in some routines. 


Routines in which the POP instructions 
have been replaced by pairs of assembler 
language instructions and which contain 
local jumps begin with the instruction 


BALR A,0 
Or 
BALR POPADR, 0. 
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instead of the instruction given above, 


Since the branch to POP SETUP is not 
desired. 

Because global jump targets begin with 
this machine language code, it is not 


possible for POP instructions to continue 
in sequence into new global routines. When 
this operation is intended, an IEYXIT or an 


TEYJUN instruction terminates the first 
routine. 
LOCAL JUMP INSTRUCTIONS 

POP local . jum instructions, jump 


instructions which transfer control out of 
the normal sequence to local labels, must 
occur in the same global area as the one in 
which the local label referred to is 
defined. | : 


The address portions of POP local jump 
instructions are assembled to contain the 
distance in halfwords from the beginning of 
the global area plus two to the indicated 
local label. This value is ae relative 
halfword address for the target, where the 
base used is the location of the first POP 
instruction in the global area. 


Example: 
Decimal Symbolic Hexadecimal 
Location Label Instruction Instruction 
100 GO245 BALR- A,B 
102 : IFYCLA G0566 062A 
120 #024503 IEYLGA G0338 9A12 
5809 


140 IEYJUN #024503 
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Explanation: The local jump instruction 
illustrated at location 140 is assembled so 
that its address field contains the loca- 
tion of the label #024503 (120), relative 
in halfwords to the beginning location of 
the global area plus two (102). Thus, the 
address field of the ‘TEYJUN instruction 
contains the value 09. . vo 


When the POP local jump instruction is 
interpreted, the contents of the location 
LOCAL JUMP BASE are added to the address 
field of the POP instruction to produce the 
absolute address of the jump target. LOCAL 
JUMP BASE is set to the beginning address 
of the global area plus two as a result of 
the BALR instruction which begins the glob- 
al routine; this function is performed at 
POP BASE, as described in "Global Jump 
Instructions." 


When local jumps are performed directly 
in machine language, the relative address- 
ing described above is also used; in this 
case, however, the base address is in the 
register POPADR as a result of the BALR 
instruction heading the routine. 


POP instruction mnemonics are listed in 
Table 8. | 


Table 8. POP Instruction Cross-Reference List | 
eo ee es ap eee ee ee eae a ee 
Mnemonic Hex Instruction Group | Mnemonic Hex Instruction Group | 
ADD 04 Arithmetic/Logical | LGA 9A Decision Making | 
AFS BC Arithmetic/Logical | LGP 80 Transmissive | 
AND B4 Arithmetic/Logical | LLS 98 Arithmetic/Logical | 
APH A4 Transmissive | LRS B6 Arithmetic/Logical | 
ARK | 86 Transmissive LSS BO Transmissive | 
ARP OE Transmissive | MOA. 5C Decision Making | 
ASK 12 Transmissive - | MOC 9E Transmissive | 
ASP 14 Transmissive | MON SE Transmissive | 
BID - ~=6iTE Code Producing | | MPY OA Arithmetic/Logical | 
BIM 7C¢ Code Producing |. °NOG 3 1E Transmissive | 
BIN TA Code Producing | NOZ 3E.. Transmissive [ 
BOP 60 Transmissive | PGO | 22° Transmissive | 
CAR 1A Transmissive [ PGP IC. Transmissive [ 
CLA 06 Transmissive | _PLD 90 Transmissive - | 
CNT 1c Transmissive l PNG 20 Transmissive | 
CPO B2 Transmissive | BPoc 94 Transmissive |. 
CRP 62 Transmissive | POW | 16 Roll Control | 
CSA 24 Decision Making [| - PSP... .. 92 Arithmetic/Logical | 
CSF 26 Jump | | PST .—.—«- 8C - Transmissive | 
DIM 8E Arithmetic/Logical | QSA - 2A Decision Making | 
DIV ~—«wBS Arithmetic/Logical |  QSF . 2C Jump 7 | 
EAD. 2E Transmissive |} ©. REL 664 RO1l1 Control | 
EAW 18 Transmissive } .« RSV. 66 Roll Control | 
ECW 18 Transmissive | SAD 6A Decision Making | 
EOP 30 Transmissive | SBP | BA Decision Making | 
ETA 32 . Transmissive |} SBS 96 Decision Making | 
FET 34 | Transmissive | SCE 28 Decision Making | 
FLP 46 Transmissive | SCK 6E Decision Making | 
FRK 84 Transmissive Ls SFP. A6 Decision Making | 
FRP 10 Transmissive | SLE 70 Decision Making | 
FTH AE Transmissive | - SNE 74 Decision Making of 
IAD 36 Transmissive 3 | SNZ - 72 Decision Making | 
IND D2 Indirect Addressing | SOP . 6C Decision Making | 
IOP =—-38 Transmissive [ SPM... _~—sCqOAA22 Decision Making | | 
IOR 8A Arithmetic/Logical | SPT AC Decision Making | | 
ITA 3A . Transmissive | SRA 76 Decision Making | 
ITM ' AO Transmissive | SRD 78 Decision Making | 
JAF uA Jump. (global) | STA 68 Decision Making — me 
56 Jump (local) | STM 3C Decision Making | 
JAT 4g Jump (global) | SUB 08 Arithmetic/Logical | 
54 _ Jump (local) | SWT | 0c Transmissive | 
JOW UE _ Jump (global) | TLY 42 Arithmetic/Logical | 
5A Jump (local) | WOP C8 Address Computation | 
JPE 52 Jump t WiP CA Address Computation § | 
JRD 82 Jump | W2P ats HOC Address Computation | 
JSB 50 Jump | W3P. CE Address Computation | 
JUN 4C _ Jump (global) | W4P DO Address Computation | 
58 Jump (local) | XIT 44 Jump | boa [ 
LCE 00 Transmissive { ZER 40 Transmissive | 
LCF AA Transmissive | [ 
LCT A8 Transmissive | | 
Fe ee en RY PE oD PR rep a oe 
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APPENDIX B: ROLLS USED IN THE COMPILER 


appendix describes each of the 


This 
rolls used in the compiler, giving the 
group size, the structure and content of 
the information in the group, and the roll 
number. Each roll is described as it 
appears in each of the phases of the 
compiler. This. information is useful in 


observing the actions taken by the various. 


‘phases, since a significant portion of the 
work performed by the compiler is the 
construction and manipulation of informa- 
‘tion on rolls. - 


The rolls are ordered in this 
number is assigned to 


some cases, a Single, 


several rolls. . In these cases, the rolls 
with identical numbers’ are presented 
chronologically, and the overlay of one 


roll on another indicates that the previous 
roll is no :longer ‘required when the new 
roll is. used. The group stats values for 
rolls with the. same number are always 
identical. | kas ot a 


| The . roll ‘number is the entry number in 
the roll statistics tables for the appro- 
priate set of-statistics; that is, the roll 
number multiplied by four is the relative 


address of the correct entry in the. group 


stats, sitet) eae and TOP tables. 
ROLL 0: LIB ROLL 
This roll contains one group for every 


name by which a’ library subprogram can be. 


referred to in the source module. The roll 
is contained in IEYROL and 
unchanged in size and in content EuEoUgnOue 


eager 


The group 

twelve bytes. Each group has the form: 
4 bytes 

r oe er eee ee ce eee EE ce eee cee ee Qe a ew Ge a eee cee ee nr an nn 7} 
| <-—--—-—--—---—-—--- subprogram—————-—————-—-—-—— | 
eS  eeacas oe acetates = { 
| ----—-—-—-—name---—-—--—-—- >| TAG | 0 i 

~-------y--—-------4----------1---------{ 


flag | 


' 
nen a em aw ewan ae 


no. arguments | 


| TAG [ 

ee ae ET 
The TAG appearing in the seventh byte of 
the group provides the mode and size of the 
FUNCTION value, if the subprocram -is a 
FUNCTION. The TAG in byte 9 indicates the 
mode and size of the arguments to the 
subprograme For FUNCTIONs, the flag (byte 
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as they are in storage, by roll number. In 


remains | 


size for’ the. LzB roll is 


10) indicates either in-line (including 
which generation routine must be used) or 
that a call is to be generated (when the 
flag is uel to zero). = ce 


This ‘roll is used and then destroyed by 
Allocate. | 
ROLL 1: -SOURCE ROLL 


This roll holds source module statements 
while they are being processed during the 
operations of Parse. The roll is not used 
by any later phase of the compiler.. 


Source statements appear on this roll 
one card column per byte. Thus, each card 
of a source statement occupies 20 groups on 
the roll. The group size’ is four bytes. 
The statement | 


A(I,J)=B(I, ay#24C (1, oyee2 


would enovetore appear on the SOURCE roll 
as: | 


4 bytes 
eae eran | ee rca cr aaaas 5 iecinaaeie eee aacaearas 5 Sac rarer: 1 
i ob | b | b | b | 
~------~- 4-+--------}----------4---------] 
| ob [ ob | oA ; 
}—------- ----------4---------- 4—--~+--- 
l I | : { J | ) | 
}--~----~—}----------4----------}4--------- 
| = | B 1 ¢ | xm 
}---------4----------4----------}--------- 
[ ’ l J | ) l . [ 
|---------4----------4---------- 4--------- 
| 2 [ + | Cc [ ¢ | 
}---------4---------- f----------4---------} 
I I {. oOo | J | ) | 
f----—---- 4---------- 4-------- ~-{---------} 
{  * [ + | 2 | ob | 
}—------- $---------- 4---------- 4---------4 
b { b [ b [| b of 
i pac ee i le as SI i a ea a otal Seales elas t————————4 
: [ 
° [ 
7 = a, | 
pee ee ee ee oe ee wap ee ee ee { 
| ob [ b [ b | ob [ 
Me a sR ee as cas i een nee er OEN NY: | 


where b stands for the character blank, and 
a total of 20 words is occupied by the 
statement. — 


ROLL 2: IND VAR ROLL ~ 


This roll holds a ‘pointer to ‘the induc- 
tion variable (the DO -variable) -used in 
each DO loop. The pointer. specifies the 
appropriate. group on the SCALAR roll. Each 
pointer is placed on the roll by Parse as 
the DO loop is encountered in the source 
module. When the loop is closed, the 
pointer is deleted. 


The roll is not used in subsequent 
phases of the compiler. The group size for 
the IND VAR roll is. four Paes (eae | 


: ears 


ROLL 2: -NONSTD SCRIPT ROLL 

This roll exists only in Unify; the 
information held on it is: taken from the 
SCRIPT roll. The group size for the NONSTD 
SCRIPT roll is variable, with a minimum of 
20 bytes. Each group on the roll. Desc ins 
an array. reference. : 


‘The Format of Oe _NONSTD SCRIPT roll 
group is: 


—& bytes | 


ae ae eg AR BL 
Jjtraits | frequency  —=s_'+| 

Seis oes ean ~- ~~ -- - ~~ - -- - - - - - - - - -- -- ----- | 
[pointer to ARRAY REF roll | 
[pointer to the ARRAY roll | 
a aaa me eee 4 
| offset | 
a | 
J induction variable coefficient. | 
] ee 4 
| o a [ 
a - + + | 
[ease daa variable coefficient | 


_ Ee eee aan ce EP SD A SD ED ERD eT < Si a ca cee as es bas ake ee as as es es ea we 


where the first byte of the first word 
contains the trait, which indicates either 
joined or not joined; the value of this 
item is always zero (not joined) for this 
roll. The joined value indicates that: the 
subscript described must appear in a gener- 
al register at the time of the reference. 
The remaining three bytes of the first word 
indicate the number of times this subscript 
expression is used. 


The next two words contain pointers to 
rolls holding information on the array and 
the array reference to which this group 
refers. The fourth word holds the array 
offset; this value accounts for element 
size and includes all modification due to 
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constant subscripts. The’ remaining words 
hold the induction variable coefficient 
used in this reference for each loop in the 
nest, beginning with nest level one (the 
outermost loop) and ending with the highest 


nest level at this array reference. 


_NEST SCRIPT ROLL 


ROLL 3: 
ae eae a 7 
This roll contains *information concern- 


ing array references in nested DO loops. 
The information for this roll is taken from 
the SCRIPT roll as each nest of loops is 
encountered, one nest at a time. The roll 
exists only in Unify. The group size of 
the NEST SCRIPT roll is variable with a 
minimum of 20 bytes. The format of the 
NEST SCRIPT roll is as follonee 


eee ae 4 bytes 

ee ee ee 
Jtraits | ey | 
-----—----+— i is ee ee a ae oe ao as a de eS eo area ee ee { 
|pointer to ARRAY REF roll | 
|-----------------------~----------------- i 
Jpointer to the ARRAY roll | 
Se eerste oh eh ES Ne ee Oe Reem eee eee eee ee | 
|offset | 
pr eer ee re 1 
[enecerron variable coefficient | 
Se ee ee ee eee 1 
‘ | 
| : | 
| ; { 
Pee ee end 
|anduction variable coefficient | { 
ho oo a ee 8 ea ae 4 
where the first byte lof.the first word 
indicates joined or -not Joined. The 
remaining three bytes of the first word 
indicate the number of times that this 
subscript expression is used. The next two 
words of the group ‘contain. pointers to 
rolls which hold information on the array 


and the array reference to which this entry 
refers. The fourth word holds the actual 
adjusted offset for this array reference. 
The last words of the group contain the 
coefficients of induction variables used in 
the array reference, beginning with the 
nest level one variable and ending with the 


highest nest level. 


ROLL 4: POLISH ROLL 


This roll is used to hold the Polish 
notation generated by Parse, one statement 
at a time. (The Polish notation is moved 
to the AFTER POLISH roll at the end of each 
statement. ) Therefore, the roll contains 
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pointers, drivers, and an occasional con- 
stant. The terms PO and Pi are used to 
refer to the bottom and next-to-bottom 
groups on the POLISH roll, respectively. . 


In Gen, the Polish notation is moved 
back onto the POLISH roll from the AFTER 
POLISH roll, one statement at a time. It 
is used in the production of object code. 


The group size for the POLISH roll is 
four bytes. The format of the Polish 
notation which appears on this roll is 
described completely in Appendix C. 


The POLISH roll is not used in the other 
phases of the compiler and no information 
is left. on it through these phases. | 


ROLL 4: LOOP SCRIPT ROLL 


This roll contains information on array 
references encountered in the source 
module. The group size for the LOOP SCRIPT 
roll is variable; the minimum is 20 bytes. 
Its format is: 


4 bytes 
a te 
Jjtraits | frequency | 
a as a a a 4 
jpointer to the ARRAY REF roll | 
}~---------------------------------------- { 
jpointer to the ARRAY roll | 

ea a ae | 
joffset | 
he a aS es ee | 
Jinduction variable coefficient | 
|----------------------------------------- { 
| . | 
| e | 
| ° | 
}~---------~--------~----------------------| 
Jinduction variable coefficient | 
a te ee ee 4 


All items are the same as described for the 
NEST SCRIPT roll (roll 3). 


The LOOP SCRIPT roll. exists only in 
Unify. It is used by this phase to further 
separate subscripts into two categories: 
Standard, those which must appear in gener- 


al registers at the time of reference, and 
nonstandard. : 
ROLL 5: LITERAL CONST ROLL 

This roll holds literal constants, which 
are stored as plexes. The group size for 
the LITERAL CONST roll is variable. Each 


plex has the form: 
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module DATA or 


(a Se ee 1 
| n | 
{------- nn { 
i k l 
ease anand 2 Sa nacre ———SS=SS=5 {ees =H==— { 
| Ci | C2 | C3 | oc | 

ee a nen, eee rena ET eee i ene 28! eee ene ree Se J 
| ° | 
| ° | 
| ° | 
eee ea 7 aan {= {=== { 
| oc. | | | | 
Cee a! oe ESAT GRE SUR ner Eee a et ee J 


where n is the number of words in the plex, 
exclusive of the word which holds n, k is 
the number of bytes in the literal con- 
stant, and c (the k character) may fall in 
any byte of the last word of the plex. If 
the literal constant appeared in a source 
PAUSE statement, the high 
order bit of the second word of the plex 
(k) is set to one; otherwise, it is zero. 


on the LITERAL CONST 
It is used to hold 


Entries are made 
roll only during Parse. 


the literal constants throughout the com- 
piler; its format, therefore, does not 
vary. 

ROLL 7: GLOBAL SPROG ROLL 


In Parse this roll holds the names of 
all SUBROUTINES and non-library FUNCTIONs 
referred to in the source module. It also 
holds the names of all subprograms listed 
in EXTERNAL statements in the source 
module, including library subprograms. In 
addition, the compiler itself generates 
calls to the library exponentiation rou- 
tines; the names of these routines are 
entered on the GLOBAL SPROG roll. 


The group size for the GLOBAL SPROG roll 
is eight bytes. All groups placed on the 
GLOBAL SPROG roll by Parse have the oa 
ing format: 


4 bytes 
Sa cA TAR a a aaa 1 
| <-------------- subprogram--——-—-——-—--—-—--—-——-— | 
}-------------------- q----------7--------- { 
|------- name—————-——— > | TAG | 0 | 
US ee ee ee i et a J 


The TAG appearing in the seventh byte of 
the group indicates the mode and size of 
the FUNCTION value for FUNCTIONS; it has no 
meaning for SUBROUTINEs. ; 


In Allocate, the information on the roll 
is altered to: 


| 4 bytes 
Fe er ee ee Eee eee, ere eee ene am 1 
| ESD number I displacement | 
}--------------------1-------------------- { 
| base table pointer | 
La eee eT te eR ra ee eee J 


The ESD number is the one assigned to the. 


subprogram. The displacement and the base 
table pointer, taken together, indicate the 
location assigned by Allocate to hold the 
address of the subprogram. The specified 
BASE TABLE roll group holds an address; the 
displacement is the distance in bytes from 
that address to the location at which the 
address of. the subprogram will be stored in 
the object module. 


In Gen, the GLOBAL SPROG roll is used in 
the construction of object code, but it is 
not altered. 


In Exit, the roll is used in the produc-— 
tion of RLD cards, but is not altered. 


ROLL 8: FX CONST ROLL 
This roll holds the fullword integer 
constants which are used in the source 


module or generated by the compiler. The 
constants are held on the roll in binary, 
one constant per group. The group size for 
the FX CONST roll is four bytes. 


The format of the FX CONST roll is 
identical for all phases of the compiler. 
The roll remains in the roll area for all 
phases, 
in Allocate and Unify. 


rr Sen EE TERED ES 


This roll holds the single-precision 
real (floating point) constants used in the 
source module or generated by the compiler. 
Constants are recorded on the roll in 
binary (floating point format), each con- 
stant occupying one group. The group size 
for the FL CONST roll is four bytes. 


The FL CONST roll remains in the roll 
area for all phases of the compiler, 
although it is not actually used in Alloc- 
ate or Unify. The format of this roll is 
identical for all phases. 


even though it is not actually used 
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ROLL 10: DP CONST ROLL 


This roll holds the double-precision 
(8-byte) real constants used in the source 
module or defined bv the compiler. 


. The constants are recorded in binary 
(double-precision floating point format), 
one constant per group. The group. size for 
the DP CONST roll is eight bytes. 


The DP CONST roll is present in this 
format through all phases of the compiler. 


ROLL 11: COMPLEX CONST ROLL 


This roll holds the complex constants of 
standard size (eight bytes) used in the 
source module or generated by the compiler. 
Each complex constant is stored on the roll 
aS a pair of 4-byte binary floating-point 
numbers, the first represents the real part 
of the constant and the second represents 
the imaginary part. ‘ 


The COMPLEX CONST roll exists in the 
format described above for all phases of 


the compiler. The group size is eight 
bytes. 
ROLL 12: DP COMPLEX CONST ROLL. 


This roll holds the complex constants of 
optional size (16 bytes) which are used in 
the source module or generated by § the 
compiler. Each constant is stored as a 
pair of double-precision binary floating 
point values. The first value represents 
the real part of the constant; the second 
value represents the imaginary part. The 
group size for the DP COMPLEX CONST roll is 
16 bytes. 


The DP COMPLEX CONST roll exists in this 
format for all phases of the compiler. 


ROLL 13: TEMP NAME ROLL 


This roll is used as temporary storage 
for names which are to be placed on the 
ARRAY or EQUIVALENCE roll. The group size 
for the TEMP NAME roll is eight bytes. The 
format of the group is: 
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The TAG appearing in the seventh byte of 
the group indicates, in the format of the 
TAG field of a pointer, the mode and size 
of the variable. : 


The TEMP NAME roll is used Ponty during 


Parse and Allocate; it does not appear in 
any later phase of the compiler. 


STD SCRIPT ROLL 


ROLL 133 





The information on this roll pertains to 
array references for which the subscript 
expression must BDESe in a generar regist- 
er (joined) « 


The roll exists Bi: in unify .and the 
information contained therein is taken from 
the SCRIPT roll. Its structure and con- 
tents are. identical to those of the NONSTD 
SCRIPT roll (roll 2) with the exception 
that the traits on this roll always indic- 
ate joined. The: group size is variable 
with a minimum of 20 sey ECSs 


ROLL 14: TEMP ROLL 


This roll is used as temporary "storage 
in Parse and is not used in any later phase 
of the compiler. The group size for the 
TEMP roll is four bytes. 


This toll is used as temporary storage 
for error information in Parse and is not 
used in the other phases of the compiler. 
The group size for sa ERROR TEMP roll is 
four bytes. otis 


ROLL 15: DO LOOPS OPEN ROLL =— - 


In Parse, as DO statements are encoun- 
tered, pointers to the target labels of the 
DO statements are placed on this roli. 
When thé target statement itself is encoun- 
tered, the pointer is removed. 


In Allocate, the roll may contain some 
pointers left from Parse; if any are pres- 
ent, they indicate unclosed DO loops; the 
roll is checked by. Allocate and hg a infor 
mation on it is removed. 


aby 


terminal values 


This roll is not used after Allocate. 
The group size for the ‘DO LOOPS OPEN roll 
is ‘four pytece 


ROLL 15: LOOPS OPEN ROLL 





contains the increment and 
of the induction variable 
used in a DO loop and transfer data for the 
reiteration of the loop. 


This roll 


Gen creates the roll by establishing an 
entry each time a DO loop is encountered. 
The information is used in generating the 
object code. As a loop is closed, the 
bottom group from the LOOPS” _ OPEN “roll is 
pruned. ; 7 


The group size is four bytes. Four 
groups are placed in the roll at one time. 
The configuration of a LOOPS OPEN roll 
group is as follows: 


4 PYyEES 
| pointer to ns (inerement), | | 
1 ‘pointer | to n2 (terminal value) | | 
I LOOP DATA pointer . | 
ty pointer | to return point made label | 


ROLL 16: ERROR MESSAGE ROLL 


‘This roll is used only in Parse. It is 
used during the printing of the error 
messages for a Single card of the source 
module. Each group holds the beginning 
address of an error message required for 
the card. It is used in conjunction with 
the ERROR CHAR roll, whose corresponding 
group holds the column number in the card 
with which the error is associated. The 
group size for thé ERROR MESSAGE roll is 
four bytes. a 


ROLL 16: TEMP AND CONST ROLL 


This roll is produced in Gen and is used 
in Gen and Exit. It holds all constants 
required for the object module and zeros 
for all temporary storage locations 
required in the’ Cede module. — | 


‘Binary constants are moved to this roll 
ny Gen: from the various CONST. rolls. This 
roll becomes the object module's temporary 


storage and constant area. The group size 
for the TEMP AND CONST roll is four bytes. 


ROLL 17: ERROR CHAR ROLL 


This roll is used only during Parse, and 
is not used in any pee: was phase of the 
compet 


While a single source module card and 
its error messages are being prepared for 
output, this roll holds the. | 
with which an error. message is to = be 
associated. The address of the error. mes- 
sage 
the ERROR MESSAGE roll. 
the ERROR CHAR roll is four bytes. 


ROLL 17: ADCON ROLL. 


a apes ee See ees ROME eefea SieCe IONS CiRSEk CRD 


This roll is used only in Exit, and is 
not used in previous phases of the compil- 
er. It holds address constants, the loca- 
tions | 
relocation information. The group size is 
16 bytes. The first. word of the group 
holds an area code, indicating the 
section | 
second word of the group holds the 
into which. the 
the third holds’ the 


constant. The last 


word of the group indicates the relocation 
factor (ESD number) to be used for. the 
constant. eet ia a et 
ROLL 18: INIT ROLL 

The group size for the INIT roll is 
eight bytes. The roll is. initialized. in 
Parse, and used and destroyed in Allocate. 


Each group on the roll holds the name of a 
Scalar variable or array listed in the INIT 
option of. 


module. The format of the gOUP is: 

4 ‘bytes — 
(posse e+ a = 7 
|<---—-~------variable Se 
]----------—---~------ >] 0 ] 
| see eer ee ake ei as aE GED CES GED CEE ane ies aoe cabs dose Wie GEe te Genk AED Cea EDD Glin GD aise J 


column number 


is held in the corresponding group on 
The group size for 


at which they are to be stored, and 


control 
in which the constant exists. The . 
address 
constant is to be placed; 
ROLL 


._ a DEBUG statement in the. source 
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ROLL 18: DATA SAVE ROLL. 


This roll is used only in Gen, where it 


holds the Polish notation for portions of 
DATA statements or Explicit specification 
statements which refer to control sections 


different from the control section present- 
ly in process. The roll is a temporary 
storage location for this information, 
Since data values are written out for one 
control section at a time. The group size 
is four bytes. - | 


ROLL_19:_ _XTEND LABEL CXTEND _LBL). ROLL 


This roll is used only by Parse. It 
holds. the pointers to the LABEL roll for 
all labels defined within the innermost DO 
loops that are possible extended range 
candidates. The group size of the XTEND 
LABEL roll is four bytes. Each group holds 
a pointer to the LABEL roll. The format of 
the group on the roll is: : 


1 byte 3 bytes 

ae cede a he ‘ 
{TAG [DARED roll pointer | 
aD teen te oes seats Mk pr ae yale ae ef ar RS Oe, ene ee ay J 
If ‘ie. Aner is a possible re-entry point 


from the extended ange of a DO loop,. the 
TAG byte contains a X'05'. Otherwise, the 
TAG byte contains a x'00'. : deat % re 


ROLL 19 





; EQUIVALENCE TEMP (EQUIV TEMP) 


This roll is used to hold EQUIVALENCE 
roll data temporarily in Allocate, and is 
not used in any other phase of - the 
compiler. The group size for the 
EQUIVALENCE TEMP or EQUIV TEMP roll is 
twelve bytes. The format of the group on 
the roll is: | | ae 


Ge me gg ee ee eres 1 
| <--------------- variable--—-—--—-—---------—-- | 
pao Se See SSeS ===— Nao sed aa { 
|------- name-~---—---- >| 0 | 
}--=----------------- 4-----=-------------- { 
i offset | 
ee ee te eae a ee eta J 


The offset is the relative address of the 
beginning of -the- variable within ‘the 
EQUIVALENCE group (set) of which it is a 
member. This roll holds. this -information 
during the allocation of # storage for 
EQUIVALENCE variables. © PY Ae ON 
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ROLL 20: | 
LBL) ROLL 


_XTEND. TEND TARGET LABEL (XTEND TARG 


This roll is used only by Parse. The 


group size of the XTEND TARGET LABEL roll 
is four bytes. Each group holds a _ pointer 
to the LABEL roll for each label that 


appears in any transfer statement (e.g., GO 
TO, Arithmetic IF statements) within a DO 
loop. These groups indicate transfers out 
of an innermost DO loop and a= possible 
extended range. The format of the group is 
the same. as Roll 19, XTEND LABEL roll. 


1 byte 3 bytes 

se a sa a Sa aa is 5 
| TAG [LABEL roll pointer | 
a es eS ee ee ee See J 
If the TAG byte contains a X'40*, this 
indicates that the target label also 


appears in a transfer statement outside the 
DO. loop and may be a possible re-entry 
point (if the label is defined within the 


loop). Otherwise, the TAG byte contains a 
x*00*. | 
ROLL 20: EQUIVALENCE HOLD (EQUIV HOLD) 
ROLL 


This roll is used to hold EQUIVALENCE 
roll data temporarily in Allocate, and is 
not used in any other phase of the compil- 
ere The group size for the EQUIVALENCE 
HOLD roll is twelve bytes. The format of 
the group on the roll is: 


4 bytes 
a ep ee ye ere Tt et a “1 
| <~-------------- variable----------------- | 
}---——--------------- yoo o nana { 
{ —-—————name-—-—-—--———— >| 0 | 
}-------------------- 1_------------------- { 
| offset { 
hs ee ee ee J 
The offset is the relative address of the 
beginning of the variable within the 
EQUIVALENCE group (set) of which it is a 


member. This roll holds this information 
during the allocation of 


EQUIVALENCE variables. 


ROLL 20: REG ROLL 


This roll contains information concern- 
ing general registers required in the 
execution of DO loops in the object module. 


The group Size of the REG roll is twelve 


bytes. The roll is used only in Unify. 
Each group has the following format: | 
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storage for 


4 bytes 

Sree oe ee Me ee ee 1 
{| traits | frequency | 
}----------- 4-—--—---- an - =~ = === === === { 
} ARRAY REF pointer | | 
Pa Sep Ee Se aero a PN eae ae | 
{ LOOP CONTROL pointer | 
lee ee east eee wes eee we ee eee ee J 


The frequency indicates how many times 
within a loop the register is used. The 
registers are symbolic registers that are 
converted to real registers and/or tem- 
porary storage locations. The pointer to 
the ARRAY REF roll is actually a thread 
which indicates each place that this 
register is required in the loop. The last 
word, the pointer to the LOOP CONTROL roll, 
designates where the register in question 
was initialized. (The particular informa- 
tion is contained in the second word of the 
entry on the LOOP CONTROL roll.) — 


ROLL 21: BASE TABLE ROLL 


This roll is constructed by Allocate, | 
and remains in the roll area for all 
remaining phases of the compiler. The BASE 
TABLE roll becomes the object module base 
table, which holds the base addresses used 
in referring to data in the object module. 


Size for this roll is eight 
bytes. One group at a time is added to 
this roll by Allocate. The first word 
holds the area code which indicates’ the 
relocation factor by which the base table 
entry must be modified at object time; each 
unique area code also defines an object 
module control section. The second word 
holds a relative address within the control 
section defined by the area code; this is 
the value which is in the corresponding 
base table entry prior to modification by 
the linkage editor. 


The group 


The entire BASE TABLE roll is 


structed by Allocate. 


con- 


ROLL 22: ARRAY ROLL 


This roll is used throughout the compil- 


er to hold the required information de- 
scribing arrays defined in the source 
module. 

In Parse, the name and dimension infor- 


mation is added to the roll for each array 
definition encountered. The group size for 
the ARRAY roll is 20 bytes. The format of 
the group is: 


4 bytes 
ma a a Ram a 1 
| <---~----------- array name-—--—--~---------- | 
peo SsSSseSes554==-= | cae {AHS sSsaees : 
] ------------------ >| TAG | 0 | 
| nee nner ore are enemy eran 5 ieee ee eee eee ae 5 eee caer 4 
] ARRAY DIMENSION pointer | 
}----------------------------------------- 4 
| number of elements | 
}----------------------------------------- { 
] array offset | 
Rey oa Nea ae ee NE Nee Pe ee ae Tae eee ee epee J 


The TAG appearing in the seventh byte of 
the group indicates, in the format of the 
TAG field of a pointer, the mode and size 
of the array variable. The pointer in the 


third word of the group points’ to the 
beginning of the plex on the ARRAY 
DIMENSION roll, which describes the dimen- 


Sions of the array. The number of elements 
in the array is a constant, unless’ the 
array has dummy dimensions; in the latter 
case, Parse puts a dummy pointer to a 
temporary location in this word of the 
group. 


The array offset is the summation of the 
multipliers for the array subscripts. If 


the array dimensions are ni, n2,...n7, then 
the multipliers are 1, nl, ni*n2, ni*n2¥*n3, 
-. n1l¥*¥n2¥*n3*n4*n5*n6, where the size of the 
element of the array is not considered. 
This value, after it is multiplied by the 
element size, is used as a subtractive 
offset for array references. The offset is 
placed on the roll as a constant unless the 
array has dummy dimensions; in the latter 


case, a dummy pointer to a temporary loca- 
tion is placed in the last word of the 
group. 


In Allocate, the first two words of the 
ARRAY roll group are replaced with the 


following: 
| 4 bytes 

Ge eee eee eo ie ee neg ee er ee 1 
} TAG |DBG/CEAD | displacement | 
}--------- 4—------~-- 4----------------- ---4 
j base table pointer | : | 
se a a ek 4 
The TAG is unchanged, except in location, 


from Parse. The DBG/CEAD flag is logically 
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split into two hexadecimal values. The 
first of these indicates debug references 
to the variable; 
for SUBCHK, 0 for neither, 
The 
the array is in COMMON, a member of an 
EQUIVALENCE set, used as an argument to a 
subprogram, or a dummy; it is zero other- 


and 3 for both. 


wise. The displacement and the base table 
pointer, taken together, indicate the 
beginning address of the array. The base 


table pointer specifies the BASE TABLE roll 
group to be used in references to the 
array; the displacement is the distance in 
bytes from the address held in that group 
to the location at which the array begins. 
If the array is a dummy, the base table 
pointer is replaced by a pointer to the 
GLOBAL DMY roll group defining the array, 
and the displacement is zero. 


The third, fourth, and fifth words of 
the ARRAY roll group are not modified by 
Allocate. 


roll remains San es 
and it is con- 
by the phases 


The ARRAY 
throughout the compiler, 
sulted, but not modified, 
following Allocate. 


ROLL 23: DMY DIMENSION ROLL 


used first in Allocate, 
where it holds pointers to the array 
definition and the entry statement with 
which dummy array dimensions are asso- 
ciated. The group size of the DMY. DIMEN- 
SEON roll is four bytes. 
added to the roll at a time to accommodate 
this information; the format is: 


This roll is 


& bytes 
Gere RN ee ee 
| ARRAY pointer [ 


| ~~. +ENTRY NAMES pointer | 


In Gen, the DMY DIMENSION roll is used 
in the generation of temporary locations 
for the dummy dimensions. This operation 
is performed when code is. being produced 
for the ‘prologue with which. the aan 
dimension is associated. 


The DMY DIMENSION roll is not used by 
later phases of the compiler. 


ROLL 23: SPROG ARG ROLL 


This roll becomes the subprogram argu- 
ment list area of the object module. The 


ers 
its value is 1 for INIT, 2 


second hexadecimal value is nonzero if. 


ROLL 24: 


Two groups are 
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roll is constructed by Gen and holds point- 
to the arguments to subprograms in the 
order in which they are presented in the 
subprogram reference. These pointers may, 
therefore, point to the SCALAR, ARRAY, 
GLOBAL SPROG, or TEMP AND CONST rolls (the 
last roll holds arguments which are 

expressions or constants). The value zero 
is placed on this roll for arguments whose 
addresses are computed and stored in the 
object module argument list area. 


The TAG fields of the pointers on this 
roll contain the value zero except for the 
TAG field of the last pointer for a single 
subprogram reference; this field contains 
the value 80. 


The contents of the SPROG ARG roll are 
punched by Exit. The group size for the 
SPROG ARG roll is four bytes. 


ENTRY NAMES ROLL 


In Parse, this roll holds all ENTRY 
names defined in the source subprogram, and 
pointers to the locations on the GLOBAL DMY 
roll at which the definitions of the dummy 
arguments corresponding to the ENTRY begin. 
The group size for the ENTRY NAMES roll is 


16 bytes. The format of the group is: 
| u bytes | 

Ce are rgd ee ee ea ee eee t 
| <----------~--- ENTRY name-———-—~-~—-—-—-—-—-——----— i 
| ----—------— Ean { 
|---------——---------- >{ 0 | 
}------- ------------- 4------------------- -4 
| dummy pointer [ 
}--——-—-—-------_---—_---—-----------------{ 
[ | OF & af I 
a eet 


The dummy arguments corresponding to _ the 
ENTRY are listed on the GLOBAL DMY roll in 
the order in which they are BECSCRESe in 
the ENTRY statement. | : | 


In Allocate, the ENTRY NAMES roll is 
used in the check to determine that scalars 
with the same names as all ENTRYsS have been 
set. A pointer to the scalar is placed in 
the fourth word of the group by this phase. 


In Gen, during the production of the 
initialization code (the object module 
heading), the first word of the group is 
replaced by a pointer to the ADCON roll 
indicating the location of the prologue, 
and the second word is replaced by a 
pointer to the ADCON roll indicating the ~ 
location of the epilogue. During the pro- 
duction of code for the prologue, the first 
pointer (the first word of the group) is 


AEE by a pointer to the ADCON roll - 
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which indicates 


the entry point for the 
ENTRY. 
_ This roll is not required after the Gen 
phase. 


ROLL 25: GLOBAL DMY ROLL 


In Parse, each group on the roll con- 
tains the name of a dummy listed in a dummy 
argument list for the principle entry or 
for an ENTRY statement in a source subpro- 


gram. A flag also appears in each group 
which indicates whether the dummy is a 
"call by name™ or a “call by value" dummy. 
The group size is eight bytes. The format 
of the group in Parse is: 
4 bytes 
a iS a ge a 
| <-~------------—- dummy name-——-————--—--—-—-—-—-—-— | 
= Seana ac a a | 
| ---------——--------- >| flag | 
a Di eee tel ees J 


where the dummy name occupies the first six. 


bytes of the group. 


Label dummies, indicated by asterisks in 
the source module, are not listed on this 
roll. With this exception, however, the 
dummy lists from the source subprogram are 
entered on this roll as they appear in the 
source statements. The end of each dummy 
list is signaled by a marker symbol on the 
roll. Since each of the dummy lists is 
represented on the roll, the name of a 
single dummy may appear more than once. 


In Allocate, the information in each 

group is replaced by: 
4 ses 

rer yr ee 1 
| TAG i DBG/flag i displacement | 
}---------4-------_--1-------------------- { 
| base table pointer t 
oa a ee ee ae J 


where the base table pointer indicates the 
group on the BASE TABLE roll to be used for 
references to the dummy, and the displace- 


ment (in the third and fourth bytes) indi- 
cates the distance in bytes from the 
address stored in that BASE TABLE roll 


group to the location of the dummy. The 
“flag" occupies the second hexadecimal 
character of the second byte and is 
unchanged from Parse, indicating call by 
name if it is on. 
value in that byte . indicates debug 
references :to the variable; its value is 1 
for INIT, 2 for SUBCHK, 0 for neither, and 
3 for both. ' The TAG indicates the mode and 
size of the dummy. © 7 
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The first hexadecimal 


The GLOBAL DMY roll is used but unmodi- 
fied in Gen and Exit. 


ROLL 26: ERROR ROLL 


This roll is used only in Parse and 
holds the location within the statement of 
an error, and the address of the error 
message for all errors encountered within a 
Single statement. As the statement is 
written on the source listing, the informa- 
tion in the ERROR roll groups is removed, 
leaving the roll empty for _the processing 
of the next statement. 7 

The group size is four bytes. Two 
groups are added to this roll at ae time: 
(1) the column number of the error, count- 
ing from one at the beginning of the source 
statement and increasing by one for every 
card column in the statement, and (2) the 
address of the message associated with the 
particular error encountered. 


ROLL 26: ERROR LBL ROLL 


This roll is used only in Allocate, 
where it holds labels which are referred to 
in the source module, but which are unde- 


fined. These labels are held on this roll 
prior to being written out as undefined 
labels or unclosed DO loops. The group 


size for the ERROR LBL roll is four bytes. 


ROLL 27: LOCAL DMY ROLL 


This roll holds the names of the dummy 
arguments to a statement function while the 
statement function is being processed by 


Parse. The group size is eight bytes. The 
format of the group is: 

4 bytes | 
es ae ee 1 
| <-------------- dummy name---—--—--~--—-~—----— | 
Sa aris eae eae SA ce aia alc aL { 
|------------------- >| 0 | 
(ie2ew Sete oo ee ne ee eye a ene enn ean J 


The information’ is removed from the roll 
when the processing of the statement func- 
tion is complete. 


This roll does not appear in any subse- 
quent phase of the compiler; however, 
pointers to it appear in the Polish nota- 
tion produced by Parse and these pointers 
are, therefore, processed by Gen. © 


ROLL 28: LOCAL SPROG ROLL 


In Parse, the roll holds the names of 
all statement functions as they are encoun- 
tered in the source module. The group size 
for the LOCAL SPROG roll is eight bytes. 
The format of the group is: 


4 bytes 
aaa ON SE rt ee re ea eee 
| <--—-~—-—-—------ stmt. function-—-——-—~—-—-———-—-~-—— | 
aS See aee == 1 Sa ea eniaUNaa Oi (a enon aera ae aaa { 
| ------- name-—-—--—-—-— >| TAG | 0 | 
eee Ae EERE ee an a Sh RRR Cee ESN SaRIeR el meme eek J 


The TAG appearing in the seventh byte of 
the group indicates, in the format of the 
TAG field of a pointer, the mode and size 
of the function value. 


In Allocate, the first four bytes of 
each group are replaced by a pointer to the 
BRANCH TABLE roll group which has been 
asSSigned to hold the address of the’ state- 
ment function. | 


The LOCAL SPROG roll is used by Gen and 


Exit, but it is not modified in those 
phases. 


ROLL 29: EXPLICIT ROLL 


This roll is used in Parse and Allocate, 


where it holds the names of all variables 
defined by Explicit specification state- 
ments. The group size for the EXPLICIT 


roll. is eight bytes. The format of the 


group in both phases is: 


4 bytes 
Ce gee pre fe pe Rn a es ee ae 1 
| <-~-----—------ variable name-—--—-—-——~—-——-—-—---— | 
aeons Pose Saas Se | 
| -----—-—-—--—---—-—----- >| TAG i 0 | 
Be ac oe ee fanaa ne ieee earn Mee em eet. een ne J 


where the TAG (seventh byte) indicates the 
mode and size of the variable. 


Groups are entered on this 
Parse; the roll is consulted by Allocate, 
but not altered. 


ROLL 30: CALL LBL ROLL 


This roll is used only in Parse, where 
it hnolds pointers to the LBL roll groups 
defining labels which are passed as argu- 
ments in source module CALL statements. 
The pointers are held on this roll only 
temporarily, and are packed two pointers to 


roll by 


a group. Pointers are added to the roll 
when the labels are found as arguments in 
CALL statements. The group size for the 
CALL LBL is eight bytes. 


ROLL_30: ERROR SYMBOL ROLL 


This roll is used only in Allocate, 


where it holds any symbol which is in 
error, in preparation for printing. The 
group size for the ERROR SYMBOL roll is 
eight bytes. The symbol (variable name, 
Subprogram name) occupies the first six 
bytes of the group. The remaining two 


bytes are set to zero. 


ROLL 31: NAMELIST NAMES ROLL 


In Parse, this roll holds the NAMELIST 
hames defined in the NAMELIST statement by 
the source module. The group size for the 


NAMELIST NAMES roll is twelve bytes. These 
‘groups are placed on the roll in the 
following format: 
4 bytes 

a eg ee ee 1 
| <----—-~-—--.--_ NAMELIST=+=-<=-245-~=—-+-== | 
 SaReeaRna Giese cL IRR ear Ss ce 1 
| ----—-—-- name-———-——-——— >| 0 | 
[-------------------- 4--~-~--------~------ { 
| pointer to NAMELIST items | 


I a a a i Ne J 


where the pointer indicates the first vari- 
able in the list associated with the NAME- 
LIST name. In Allocate, the content of the 
group on the NAMELIST NAMES roll is changed 
to reflect the placement of the correspond- 
ing NAMELIST table in the object module. 
The format of the first two words of the 
modified group is: ) 


4 bytes 
See ee De ee ee ee 1 
| 0 | displacement | 
}-------------------- 4-------------------- { 
| base table pointer | 
Ba ee J 


where the base table pointer indicates’ the 
group on the BASE TABLE roll to be used for 
references to the NAMELIST table, and the 
displacement (bytes 3 and 4) indicates the 
distance in bytes from the address in that 
BASE TABLE roll group to the location of 
the beginning of the NAMELIST table. 


This roll is used, but not modified, in 
Gen and Exit. 
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ROLL 32: NAMELIST ITEMS ROLL 


This roll holds the variable names 
listed in the namelists defined by the 
source module. The group size for the 
NAMELIST ITEMS roll is eight bytes. Infor- 
Mation is 
the following form: 


4 bytes 
aa ea a aaa 1 
|<~------—-------- variable—-----—-—--—-—-—-—-----~- | 
 aiaaaia cir areaan oan abana! ee pt ee ee ee { 
| ------—- name-——-—-—-—-——— >| 0 | 
OSs ee hs ee ee Fete Ser one ae etl feat etat ee a eek ne J 


A marker symbol separates namelists on the 
roll. 


The roll is used in this format by 
Allocate and is destroyed. It does not 
appear in later phases. 


ROLL 33: ARRAY DIMENSION ROLL 


‘This roll is used to hold dimension 
information for the arrays defined in the 
source module. The group size for the 
ARRAY DIMENSION roll is variable. The 
information is placed on the roll by Parse 
in the form of a plex, as follows: 


4 bytes 
i ae ee es ee eee ene 1 
| n | 
|----------------------------------------- { 
| dimension | 
|---~-------~----------------------------- { 
| multiplier | 
|----------------------------------------- { 
| dimension | 
}----------------~~----------------------- { 
| multiplier | 
}----------------------------------------- { 
| ° | 
| x | 
| . | 
Se a cage aN eae { 
| dimension 
|---------~------------------------------- { 
| multiplier | 
Ene an RSE a ae arene INE 7a eer Nose OA Oe ar RR eA ae eo j 


where n is the number of words in the plex, 
exclusive of itself. As many dimensions 
and corresponding multipliers appear as 
there are dimensions declared for the 
array. 


Unless the array is a dummy and has 
dummy dimensions, each dimension and multi- 
plier is a constant. When dummy dimensions 
do appear in the 
corresponding dimension on this roll is a 
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placed on the roll by Parse in 


array definition, the. 


pointer to the dummy dimension variable on 
the SCALAR roll, and all affected multip- 
liers are pointers to temporary locations 
(on the TEMP AND CONST roll). The multip- 
liers for an array with dimensions ni, n2, 
Novecey  . 7 are ae n1, n1¥n2,.e6, 
n1*#n2*n3*n4*n5*n6. | 


The ARRAY DIMENSION roll is present, but 
not modified in Unify, Gen, and Exit. 


ROLL 34: BRANCH TABLE ROLL 


- This roll becomes the object module 
branch table. During Allocate, where the 
roll is first used, the size of the roll is 
determined, and some groups are actually 
placed on it. These groups contain the 
value zero, and each group refers to a 
source module label. 


In Gen, the information for the BRANCH 


TABLE roll groups is supplied as_ each 
labeled statement is processed. The group 
size for the BRANCH TABLE roll is’ eight 
bytes. The format of the group is: 
4 bytes 

a a a a aga a a an ak Ca Das 1 
| area code | 
|----------------------------------—------ { 
| relative address | 
Oa atc ee i ek, J 


where the area code provides the reference 
for linkage editor modification of the 
corresponding branch table word, and the 
relative address is the relative location 
of the label in the control section (area) 
in which it appears. Branch table (and, 
hence, BRANCH TABLE roll) entries are pro- 
vided for all branch target labels, state- 
ment functions, and made labels (labels 
constructed by the compiler to refer to 
return points in DO loops and to _ the 


statements following Logical IF state- 
ments). 
The roll is retained in the Gen format 


until it is written out by Exit. 


ROLL 35: TEMP DATA NAME ROLL 


This roll is used only in Parse, where 
it holds pointers and size information for 
variables listed in DATA statements or in 


Explicit specification statements which 
specify initial values. Information is 
held on this roll while the statement is 


being processed. 


The group size for the TEMP DATA NAME 
roll is four bytes. Four groups are added 
to the TEMP DATA NAME roll for each vari- 
able listed in the statement being scanned. 
They are in the following sequence: | 


4 bytes 
a A a a a RR TAL TS EC I 1 
| element size (bytes) | 
}--------------------------~-------------- 4 
| pointer to variable | 
|----------------------------------------- { 
| number elements set | 
}----------------------------------------- { 
| element number | 
sa ee ere eae J 


The third group specifies the number of 
elements of the variable being set by the 
DATA statement or the Explicit specifica- 


tion statement. If a full array is set, 
this is the number of elements in the 
array; if a specific array element is. set, 
this word contains the value one. | 

The fourth group indicates the first. 
element number being set. If a full array 
is being set, this word holds the value 
zero; otherwise, it holds the element 
number. 
ROLL 36: TEMP POLISH ROLL 

This roll is used only in Parse, where 


it holds the Polish notation for a single 
DATA group during the scanning of that 
group. In an Explicit specification state- 
ment, a DATA group is defined to be a 
Single variable and the associated con- 
stants; ina DATA statement, a DATA group 
is the set of variables listed between a 
pair of slash characters and the constants 
associated with that set. 


This roll is used because any error 
encountered in a DATA group will cause the 


Polish notation for the entire group to be 
canceled. In an Explicit specification 
statement, the type information on the 


variable is retained when the data is_ bad; 
if, however, the type information is bad, 
the data is also lost. The group size is 
four bytes. | 


ROLL 36: FX AC ROLL. 


This roll is used in Gen only and is a 
fixed length roll of 16 groups. The groups 
refer to the 16 general registers in order. 


The group size for the FX AC roll is 
four bytes. Each group on the roll con- 
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tains a pointer to the value which is held 
in the corresponding general register at 
the present point in the object module; as 


the contents of the general registers are 
changed, the pointers are changed. The 
pointers are used primarily to indicate 


that the general register is in use and the 
mode of the value in it. They are used for 
optimizing only in the case of the general 
registers which are loaded from the base 
table and the general registers used for 
indexing. If the general register corre- 
sponding to a specific group is not in use, 
the group holds the value zero. 


ROLL 37: EQUIVALENCE ROLL 


In Parse, this roll holds the names of 
all variables listed in source module 
EQUIVALENCE statements. One group is used 
for each variable name listed in the source 
statement, and EQUIVALENCE’ sets are 
separated from each other by a marker 
symbol. The group size for the EQUIVALENCE 
roll is twelve bytes. The format of the 
group is: . 


q bytes iste 
Be oe 0 ee Se ee 1 
| <---------—------ variable-—-—-———~-—--——-—-—-———— | 
}~---~--------------- q-------------------- { 
| --—-name-~—-—-—-—-—------ >| 0 | 
|--------------------4--------------------} 
| EQUIVALENCE OFFSET pointer | 
a i a et eee St 


The pointer to the EQUIVALENCE OFFSET roll 
points to the first word of a plex on that 
roll which holds the subscript information 


supplied in the EQUIVALENCE statement. If 
no subscript was used on the variable in 
the EQUIVALENCE statement, the value zero 


appears in the third word of the group on 
the EQUIVALENCE roll. 


The roll is used and destroyed in Alloc- 
ate, during the assignment of storage for 
EQUIVALENCE variables. 


ROLL 37: BYTE SCALAR ROLL 


This roll is used _ only in Allocate, 
where it holds (temporarily) the names of 
1-byte scalar variables. The group size 
for the BYTE SCALAR roll is eight bytes. 
The format of the group is: 
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4 bytes 
ee ee ge ee 1 
| <-------—------ scalar name-------—--—-—-—--—-—-—— | 
oe eee Toa oo Saree ae { 
| ------------------- >| TAG | 0 | 
ea ae et a re etc eae a ee ee ena J 


where the TAG field indicates the mode and 
size of the variable. | | 


ROLL 38: USED LIB FUNCTION ROLL 


In Parse, the roll holds the names and 
other information for all library FUNCTIONs 
which are actually referenced in the source 
module. The group size for the USED LIB 
FUNCTION roll is twelve bytes. The infor- 
mation is placed on the roll in the follow- 
ing format: 


4 bytes 
Be ee ee 1 
| <--------—-----+- FUNCT ION~—-—-—-—-——--—-—-———---—- | 
RATERS Gan EEE La SSE cae nice 
| ------- name——————— >| TAG | 0 | 
Renee eee eee qy---------} ---------- 1 --------- 
| TAG | flag | no. arguments ; 


Bs ee Be a Ba i ee eed J 


The TAG appearing in byte 7 indicates’ the 
mode and size of the function value. The 
TAG appearing in byte 9 indicates the mode 
and size of the arguments to the FUNCTION. 
The flag in byte 10 indicates whether’ the 
FUNCTION is in-line and, if it is, which 
generation routine should be used. If the 


flag is zero, a call is to be generated. 
The last two bytes hold the number of 
arguments to the FUNCTION. The maximum 


number of arguments allowed for the MIN and 
MAX FUNCTIONS is 16,000. 


In Allocate, the information in the 
first two words of the group is altered to: 


4 bytes | 
ey ee fee 
| TAG | 0 | displacement | 
foo Oe ea Be eee a | 
| base table pointer | 
ios ore eloet eee eae aes Sv as eee os es ee J 


where the base table pointer indicates the 
group on the BASE TABLE roll to be used in 
referring to the address of the subprogran. 
The displacement is the distance in bytes 
from the contents of the base table entry 


to the location at which the address of the 


subprogram will be stored. 
unchanged, 


The TAG byte is 
except in location, from Parse. 


The USED LIB FUNCTION roll is consulted 
by Gen in the construction of object code, 
but it is not modified. It is also pre- 
sent, but not modified, in Exit. 
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ROLL 39: COMMON DATA ROLL ~ 


This roll holds the names of all COMMON 
variables as defined in source module COM- 
MON statements. A marker symbol separates 
COMMON blocks on this roll. All informa- 
tion is placed on this roll in Parse. 


The group size is eight bytes. The 
first six bytes of each group hold the 
nameof the COMMON variable; the remaining 
two bytes are set to zero, as follows: 


| 4 bytes 

"Raila a an 1 
| <------------ variable name----—-—--—--—-—---— [ 
PSS Se S54 sS SS {ass eS { 
| ------------------ >| 0 | 


information on this 
The roll is 


In Allocate, the 
roll is used and destroyed. 
not used in later phases. 


ROLL 39: HALF WORD SCALAR ROLL 


The roll is used only in Allocate, where 
it holds (temporarily) the names of half- 
word scalar variables defined in the source 
module. The group size for the HALF WORD 
SCALAR roll is eight bytes. The format of 
the group is: 


4 bytes 
ag ae er re ew a ep 1 
| <------—--—-—---— scalar name—--~-~-—-—-—-—-—-—-—-—-~-—~—~—- ; 
ac a an » eae aiaaaeae: Sacaraaiea ape { 
| ---~---—--—-------- ->| TAG | 0 | 


where the TAG indicates the mode and size 
of the variable. | 


ROLL 40: COMMON NAME ROLL 


- In Parse, this roll holds the name of 
each COMMON block, and a pointer to the 
location on the COMMON DATA roll at which 
the specification of the variables in that 


block begins. The group size for the 
COMMON NAME roll is twelve bytes. The 
format of the group is: 

4 bytes 
Ge a ee ee er ee ae 1 
| <—----—--------- block name---~--——---—---—--—-—- | 
iinet ican ai accents Siac aia odo mr as { 
| ------------------- >| 0 | 
|-—------------------ 1 ———-~-------- ~~~ { 
| COMMON DATA pointer | 
Oh ea ie se ee J 


The pointer points to the first variable in 
the list of names which follows the block 
name in the COMMON statement; since a 
Single COMMON block may be mentioned more 
than once in source module COMMON state- 
ments, the same COMMON name may appear more 
than once on this roll. The information is 
placed on this roll as COMMON statements 
are processed by Parse. 


In Allocate, the roll is rearranged and 
the last word of each group is replaced by 
the size of the COMMON block in bytes, 
after duplicate COMMON names have been 
eliminated. The size is written out by 
Allocate and the roll is destroyed. 


ROLL 40; TEMP PNTR ROLL 


The group size for the TEMP PNTR roll is 
four bytes. This roll is used only in Gen, 
and holds pointers to those groups on the 
TEMP AND CONST roll that represent object 
module temporary storage locations. The 
information recorded on this roll is main- 
tained so that temporary storage created 
for one statement can be reused by subse- 
quent statements. 


ROLL 41: IMPLICIT ROLL 


used only in Parse and 
Allocate, where it holds the information 
supplied by the source module 
statement. The group size for the IMPLICIT 
roll is four bytes. Its format is: 


The roll is 


1 byte 1 byte 1 byte 


information is placed on the roll by 
Parse. The TAG field in the third byte of 
the group indicates, in the format of the 
TAG field of a pointer, the mode and size 
assigned to the letter by means of the 
IMPLICIT statement. | 


This 


The IMPLICIT roll is used by Allocate, 
and destroyed. 


ROLL 42: EQUIVALENCE OFFSET ROLL 


This roll is constructed during the 
operation of Parse and holds the subscripts 
from EQUIVALENCE variables in the form of 
plexes. The group size for the EQUIVALENCE 
OFFSET roll is variable. Each plex has the 
form: 


IMPLICIT. 
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| n | 
}----------------------------------------- ! 
[ subscript 1 | 
}----------------------------------------- { 
| subscript 2 | 
}---------------------- ~------------------ { 
| 2 | 
| . | 
| : | 


where n is the number of words in the plex 
exclusive of itself and, therefore, also 
the number of subscripts. Each subscript 
is recorded as an integer constant. 


The connection between a plex on this 
roll and the corresponding EQUIVALENCE 
variable is made by a pointer which appears 
on the EQUIVALENCE roll and points to _ the 
first word of the appropriate plex on this 
roll. 


In Allocate, the EQUIVALENCE OFFSET roll 
is used in the allocation of storage for 
EQUIVALENCE variables. It is destroyed 
during this phase, and does not appear in 
the later phases of the compiler. 


ROLL 42: FL AC ROLL 


This roll is used in Gen only, and is a 
fixed length roll of four groups. The 
groups refer to the four floating-point 
REGPBCerss in order. 


The group size fee the FL AC roll is 
four bytes. Each group on the roll con- 
tains a pointer to the value which is held 
in the register at the present point in the 
object program; as the contents of the 
registers change, the pointers are changed. 
These pointers are used primarily to indic- 
ate that the register is in use and the 
mode of the value init. If the register 
is not in use, the corresponding group on 


this roll contains zero. 


ROLL 43: LBL ROLL 

- This roll holds all labels used and/or 
defined in the source module. Each label 
is entered on the roll by Parse when it is 


first encountered, whether in the label 
field or within a statement. 


The group size for the LBL roll is four 


bytes. In Parse, the format of the LBL 
roll group is: | 
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where the first byte is treated as the TAG 
field of a pointer, and the remaining three 
bytes contain the label, converted to a 
binary integer. 


In the TAG field, the mode portion (the 


first four bits) is. used to indicate 
whether the label has been defined; the 
remainder of the TAG field is used to 


indicate whether the label is the target of 


a JUMPs the label of.a eee or neither. — 


The leftmost faite pits of the TAG byte 
are used as follows: yon? 


8 Label is defined 


i 


Q Label is undefined 


HI 


~The eieneiose four bits of the TAG byte 
indicate the EOLLOWaNG: 


1 = This is the label of the 
of a jump (GO TO) 


target 
statement. 


3 = This is the label of a FORMAT 


Statement. 


5 = This label is a possible re- 

entry point within an innermost 
DO loop that may have a possible 
extended range. (Parse inserts 
the hexadecimal 5 to indicate to 
Gen that the label is a possible 
re-entry point; the Gen phase 
then restores those registers 
that were saved before the 
extended range was entered.) 


Q = None of the above conditions. 


In Allocate, the lower three bytes of 
each LBL roll group defining a jump target 
label are replaced by the lower three bytes 
of a pointer to the BRANCH TABLE roll 
group, which will hold the location of the 
label at object time. Each group defining 
a FORMAT statement label is replaced (lower 
three bytes only) with a pointer to the 
FORMAT roll group which holds the base 
pointer and displacement for the FORMAT. 
Groups defining the targets of unclosed DO 
loops” are cleared to zero. 


In Gen, the LBL roll is used to find the 
pointers to the BRANCH TABLE and FORMAT 
rolis, but it is not altered. 


E54 


The. TAG field appearing in the 


‘hexadecimal values. 


ROLL 44: SCALAR ROLL 


In Parse, the names of all unsubscripted 
variables which are not dummy arguments to 
statement functions are listed on the roll 
in the order of their appearance in active 
(mon-specification) Statements in the 
source module.. Variables which are defined 
in specification statements, but which are 


never used in the source module, are not 
entered on the roll. The group size for 
the SCALAR roll is eight bytes. The format 
of the group is: | 
4 bytes 
Ce ee a ee A eee rs ee 1 
| <------------- scalar name--—-—-—~—~--—~—-----——- [ 
(Gar LEeeanas © aay nae See ae { 
| -------~----------- >| TAG | 0 [ 
a ee eee rete eee eee it we ante ect ae Sa meee AERTS RANE are 1 


The TAG field appearing in the seventh byte 
of the group indicates the mode and size of 
the variable in the ponte of the TAG field 
of a pointer. 


In Allocate, the information lett on the 
SCALAR roll by Parse is replaced by infor- 
Mation indicating the storage assigned for 
the variable. The resulting format of the 


group is: 

4 bytes 
Rose a ae ee | aC a ct 
} TAG |pBG/cEAD i displacement li 
}---------1---------- oe ee ee 4 
} _ base table pointer | 
a le i 


first byte 
is unchanged, except in location, from the 
TAG field held in the SCALAR roll group 
during Parse. The DBG/CEAD flag (in the 
second byte) is logically split into two 
The first of these 
indicates debug references to the variable; 
the value is 1 for a scalar referred to in 
the INIT option; otherwise, the value is 
zero. The second hexadecimal value is 
nonzero if the variable is in COMMON, a 
member of an EQUIVALENCE set, Or an argu- 
ment to a subprogram or a global dummy; 
otherwise, it is zera. The displacement in 
bytes 3 and 4, and the base table pointer 
in the second word, function together to 
indicate the storage location assigned for 
the variable. The base table pointer spe- 
cifies a BASE TABLE roll group; the dis- 
placement is the distance in bytes from the 
location contained in that group to the 
Location of the scalar variable. If the 
scalar is a call by name dummy, the base 
table pointer is replaced by a pointer to 
the GLOBAL DMY roll group defining it, and 
the displacement is zero. 


The SCALAR roll is checked, but modi- 
fied, during Unify, Gen, and Exit. 


ROLL 44: HEX CONST ROLL 


the hexadecimal con= 
source module DATA 


This roll holds 
Stants used in 
Statements. 


The format of the roll is identical for 
all phases of the compiler. The group size 
is 16 bytes. Two hexadecimal characters 
are packed to a byte, and constants which 


occupy fewer than 16 charatters are right- 
adjusted in the group with léading zeros. 


EE OME RAE WN ES EN CEE OEE WaT ane NEN “SESE CRITE Ueno Gum “ewe Soom cme 


In Parse, this roll holds the names of 
variables listed in DATA statéments and 
variables for which data valués are pro- 
vided in Explicit specifiéation statements. 
The names aré entered on the roll when they 
aré found in these statements. The group 
size for this roll is eight bytes. The 
groups have the following form: 
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4 bytes 
Ee ee ye ee i rr ES ee 1 
| <------------ variable name——-—-—-—-—---——-—-———- | 
SCRE ea ar ca ale sig a a Sang ee an { 
| ------------------- >| 0 | 
Ua rt ee Siren ee ee Arce ct fere ral ETS Pe ee J 


| This information is used to ensure that 
no data values are provided in the _ source 
module for dummy variables. The informa- 
tion is left on the roll throughout Parse, 
but is cleared before Allocate operates. 


In Allocate, binary labels and the names 
of statement functions, scalar variables, 
arrays, global subprograms, and used 
library functions are placed on the roll in 
order. The group size for this roll is 
four bytes. Each label entered on the roll 
occupies one word; the names 
words each and are left-justified, leaving 
the last two bytes of each name group 
unused. | 


The encoded information is’ placed on 
this roll by Allocate as its operations 
modify the rolls on which the information 
was Originally recorded by Parse. Thus, 
all the labels appear first, in the order 
of their appearance on the LBL roll, etc. 
The information is used by the Exit phase 
in producing the object module listing (if 
the LIST option is specified by the user). 


ROLL 46: LITERAL TEMP (TEMP LITERAL) ROLL 


This roll is used only in Parse, where 
it holds literal constants temporarily 
while they are being scanned. The group 


size for the LITERAL TEMP or TEMP LITERAL 
roll is four bytes. Literal constants are 
placed .on the roll one character per byte, 
or four characters per group. | 


ROLL 47: COMMON DATA TEMP ROLL 


SS PEEEnnetinemeeentmnomeentipemenndonsnntiemecadaieneetieemematieaamnndnas mmmpeieetidmenmemtiemnmenmnemmentinmemmatnenae eta erectemnemmeme camemenl 


This roll holds the information from the 
COMMON DATA roll temporarily during the 
operation of Allocate, which is the only 
phase in which this roll is_ used. The 


group size for the COMMON DATA TEMP roll is. 


eight bytes. The format of the group is 
identical to that of the COMMON DATA roll, 
namely: 


4 bytes 
ee ee ore ee re Te oe pe ee 1 
| <—-—--~--—--—-~--~- variable-—-—-—-~—--~—--—-—--—-—-—-- | 
iscsi eet casasias mamieeectias ae a cae 4 
| ------- name-—-----——-— >| 0 | 
SE ee a eA SEC Coe ee | eee ae hn ee Ieee ar eR eee 4 


occupy two- 
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ROLL 47: FULL WORD SCALAR ROLL 


This roll is used only in Allocate, 
where it holds the names of all fullword 
scalar variables defined by the source 


module. The group size is eight bytes. 
‘The format of the group on the roll is: 
4 bytes 

aa aaa a | 
| <--------—----- scalar name——--—-—-——-—-—--—-—-- | 
aa aaa acs faa ea a ga ees eR 
| --------—----------- >|. TAG | 0 | 
Bae ee ee ee Se ees Oe ei J 
where the TAG indicates the mode and size 
of the variable. This information is held 
on this roll only temporarily during the 


assignment of storage for scalar variables... 


ROLL 48: COMMON AREA ROLL 


This roll is used only in Allocate, 
where it holds COMMON block names and sizes 
temporarily during the allocation of COMMON 
storage. The group size for the COMMON 
AREA roll is twelve bytes. The format of 
the group on the roll is: 


4 bytes 
Bag te Tee te geet eee ae Ge ee a Te 1 
| <-----—-~--—-—--~--- block name-~-——--—-—-—~------- | 
ama ranean ae aT SS { 
|-—_____--—-_--__--—- >| 0 | 
}-~------~-----------4-—------~---—------- { 
| block size (bytes) | 
a J 


ROLL 48: NAMELIST ALLOCATION ROLL 


This roll is used only in Allocate, 
where it holds information regarding NAME- 
LIST items temporarily during the alloca- 
tion of storage for the NAMELIST tables. 


The group size for this roll is twelve 
bytes. The format of the group is: 
4 bytes. 

Se ne PEL CE AC Ee gL a a 
| <------------ variable name-—-—--—-—--—--—-—----- | 
psn esse SS | 
|------------------- >| 0 | 
|--------------------1-------------------- { 
| pointer i 


where the pointer indicates’ the group 
defining the variable on either the SCALAR 
or ARRAY roll. | 
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ROLL 49: _ 


COMMON NAME TEMP ROLL 





This roll is used only in Allocate, 
where it holds the information from the 
COMMON NAME roll temporarily. The group 
size for the COMMON NAME TEMP roll is 
twelve bytes. The format of the group is 
therefore identical to that of the COMMON 
NAME rolls: 


4 bytes 
ae se ant cai aac gta le a a ae arms ~~ 4 
|<----—-—~-—~--—----—block name-------~--------- | 
fmm npn { 
pecaesaemnaanad --- >| 0 | 
|-------------------- A-———-~-~--~~-~------ { 
| COMMON DATA pointer | 
iS eon ae ear ea Seen en pn tr ae en Re EN OM SN 4 


where the COMMON DATA pointer points to the 
list of variables in the COMMON block. 


ROLL 50: 





EQUIV ALLOCATION ROLL 


This roll is used only during Allocate, 


and is not used in any other phase of the 
compiler. When the allocation of storage 
for EQUIVALENCE variables has been com- 


pleted, the information which has been 
produced on the GENERAL ALLOCATION roll is 
moved to this roll. The group size for the 
EQUIV ALLOCATION roll is twelve bytes. The 
format of the group is, therefore, ident- 
ical to that on the GENERAL ALLOCATION 
roll: 


4 bytes 
Cg ee er a ee 1 
| <--------------- variable--—----—-----—-—----- | 
Geena ea aeriaiea api Sanaa erin gainer gk Rie peace { 
| ------—- name———--—— —>| displacement | 
bt Se eee a | 
| base table pointer | 
a ee ee J 


where the base table pointer indicates the 
group on the BASE TABLE roll which wiil be 
used for references to the variable. The 
displacement is the distance in bytes from 
the location indicated in the BASE TABLE 
roll group to the location of the variable. 


ROLL 51: RLD ROLL 


This roll is used only in Allocate and 
Exit; it is not used in Parse. [In both 
Allocate and Exit, the roll holds’ the 
information required for the production of 
RLD cards. The group size for the RLD roll 
is eight bytes. The group format is: 
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ALLOCATION roll is moved to this roll. 


4 ita 


| | area code | ESD # | 
| address | 


where the area code indicates the control 
section in which the variable or constant 
is contained. The ESD number governs the 


modification of the location by the linkage 


editor, and the address is the location 


requiring modification. 


Information is placed on this roll by 
both Allocate and Exit, and the RLD cards 
are written from the information by Exit. 
The entries made on the RLD roll by Alloc- 
ate concern the NAMELIST tables; all 
remaining entries are made by Exit. 


ROLL 52: COMMON ALLOCATION ROLL 


is used only in Allocate and 
is not used in any other phase of the 
compiler. When the allocation of COMMON 
storage has been completed, the information 
which has been produced on the GENERAL 
The 
for the COMMON ALLOCATION roll 
is twelve bytes. The format of the group 
is, therefore, identical to that on the 
GENERAL ALLOCATION roll: 


This roll 


group size 


4 bytes 
Se ee ee ee 
Ss Ss —-----—-— variable—---—-—--—--~---—--+~--~-~~-— | 
t a a a a a a te Sk a 4 
|------ ames St displacement | 
|-------------------- 4-—----~---~~------- { 
| base table pointer i 
Oc a ae eee ee J 


where the base table pointer indicates the 
group on-the BASE TABLE roll which will be 
used for references to the variable. 


The displacement is the distance in 
bytes from the location indicated in the 
BASE TABLE roll group to the location of 
the variable. | 


ROLL 52: LOOP CONTROL ROLL 


This roll is created by Unify and is 
used by Gen. The information contained on 
the roll indicates the control of a loop. 


The group size for the LOOP CONTROL roll 
is twelve bytes. The format of the LOOP 
CONTROL roll group in Unify and Gen is: 


a DYESS 
Gros oe ae eee me emp ee T~ ap ae ene coe er me. eee a a ha a a | 
|} traits | coefficient | 


| register (this Loop) | | 


] base or register (outer Loop) | ] 


first byte of the first word 
(traits) indicates whether the coefficient 
is initiated by a direct load. The remain- 
ing three bytes is the coefficient, which 
is the multiplier for the induction vari- 
able. 
ter where the coefficient is required. The 
base is the source of initialization of the 
register; it can be either a constant, 
register, or an address. 


where the 


ROLL _533:__ 


FORMAT ROLL 
This roll is first used in Parse, where 


the FORMAT statements are placed on it. 
See Appendix D for the description of the 
encoding of the FORMAT statement. 


Each group of the FORMAT roll is in the 
form of a plex (the group size is given in 


word 0). The configuration Of a FORMAT 
group in Parse is: 
4 bytes 

Come a es eee tS ee pe 1 
] size of the group ] 
}-------~--------------------------------- { 
| pointer to the LBL roll ] 
(Ser ee ee { 
] number of bytes in the FORMAT i 
|----------------------------------------- { 
. 
| : | 
| . | 
Bi es, J 


Word 0 contains a value which indicates the 
number of words in the group on the roll. 
The pointer to the LBL roll points to the 


label of the corresponding FORMAT state- 
ment. The next word gives the number of 
bytes of storage occupied by this particu- 


lar FORMAT statement. The ellipses. denote 
that the encoded FORMAT follows this con- 
trol information. 


In Allocate, the FORMATS are replaced by 
the following: 


4 bytes 
(eer Do ee ne a 1 
} —60 j displacement | 
}--------- ----------- 4——----~------------- 4 
] base table pointer ] 
Deperee ate a aa eae i ee J 


The second four bytes is the regis- 
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which, taken together, indicate the hbegin- 
ning location of the FORMAT statement. 
These groups are packed to the BASE of the 
roll; that is, this information for the 
first FORMAT appears in the first two words 
on the roll, the information for the second 
FORMAT appears in words 3 and 4, etc. 


The LBL roll group which defines the 
label of the FORMAT statement holds a 
pointer to the displacement recorded for 
the statement on this roll. oe" 


The FORMAT roll is retained in this form 
for the remainder of the compilation. 


ROLL 54: SCRIPT ROLL 
This roll is “created by Parse as each 


appropriate array reference is encountered. 
The array reference indicated includes sub- 
scripts (one or more) which use the 
instruction variable ina linear fashion. 
Unify uses the contents of the roll. : 


_ The group size of the SCRIPT roll is 16 
bytes, plus an additional 4 bytes for each 
DO loop that is open at the point of tne 
array reference represented by the entry. 
The group format of the SCRIPT roll in 
Parse and Unify is as described for the 
NONSTD SCRIPT roll. = 


ROLL 55: LOOP DATA ROLL 


This roll contains the initializing and 
terminating data, and indicates the induc- 
tion variable and the nesting level of the 
particular loop from which this entry was 
created. SAL : - 


The roll is created in Parse at the time 


that the loop is encountered. The group 
Size of the LOOP DATA roll is 20 bytes. 


The group format of the roll in Parse is: 


4 bytes 
r= ee cee ee ee ce ee ee T com cee ee es SORE ee eS ce Met ce eS eee eae ener eee 4 
} TAG | nest level [ 
t-----— Sage ae PinG er { 
| Pot gee, ae ‘induction variable | 
}----~~+-~-~~~--~~-~~~-- +--+ +--+ +--+ +--+ - 
i pointer to Na (initial value) [ 
Oe et 4 


where the TAG byte contains a X*80° when an 
inner DO loop contains a possible extended 
range. The X*80" is placed there by Parse 
and tested by Gen. The Gen phase then 
produces object code to save general regis- 
ters 4 through 7 at the beginning of this 
DO loop so ‘that the registers are not 
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altered in the extended range. The next 
three bytes indicate the nest level of the 


loop. The second word is a pointer to the 
SCALAR roll group which describes the 
induction variable. The third word of the 


group’ points to the initializing value for 
the induction variable, which may be repre- 
sented on the FX CONST roll or the SCALAR 
roll. 


| During the operation of the Unify phase, 
the roll is completed with pointers to the 
LOOP CONTROL roll. During Unify, the LOOP 
CONTROL roll is also created; therefore, 
insertion of the pointers is done while the 
loop control data is being established. 


The following illustration shows. the 
configuration of the LOOP DATA roll as it 
is used in Unify: 


4 bytes 
aa a aa a a aa al ce 
| nest level ] 
Pp oe ee ee a 4 
] SCALAR pointer (induction variable) | 
}-----~----------------------------------- { 
] FX CONST pointer or SCALAR pointer } 
}------~---------------------------------- { 
} LOOP CONTROL pointer (start init.) | 
}----------------------------------------- 4 
] LOOP CONTROL pointer (end init.) ] 
Me J 


The last two words (eight bytes) of the 
group are inserted by Unify. These point- 
erS point to the first and last LOOP 
CONTROL roll groups concerned with this 
loop. 7 


ROLL 56: PROGRAM SCRIPT ROLL 


Re ED ORS AS ES LS ET TE A SS SY SS ES ES SNS NS ES SD TEED OES GOED SS SAS SUS SS 


This roll is a duplicate of the SCRIPT 
roll. The contents of the SCRIPT roll are 
transferred to the PROGRAM SCRIPT roll in 
Parse as each loop is closed. Each loop is 


represented by a reserved block on _ the 


roll. 
The group size of the PROGRAM SCRIPT 
roll is 16 bytes, plus an additional 4 


bytes for each nest level up to and includ- 
ing the one containing the reference repre- 
sented by the entry. The format of the 
PROGRAM SCRIPT roll group in Parse and 
Unify | is as follows: “a ae” 
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4 bytes 
Cr ea er pe ee ee 
| traits | frequency | 
}----------4+—~--~-~--—------------------- { 
j ARRAY REF pointer | 
}-----------------------------=----------- { 
] ARRAY pointer | 
p--~-~-~-~~--—~----~--------+-+----------- 
{ ARRAY offset pointer | 
}----------------------------------------- { 
| induction variable coefficient | 
prone nena nnnennnennennn nee { 


i induction variable coefficient | | 
] (nest level = 2) | 


{ induction variable coefficient <4 
i (nest level = n) | 


ea a ee ea ee ee ES SRO Oa eC eee aN ee en ee eed J 
See the NONSTD SCRIPT roll for further 
description. | 
ROLL 56: 


_ARRAY PLEX ROLL 


This roll is used only in Gen, where it 
handles subscripts (array references) which 
are not handled by Unify. The group size 
for the ARRAY PLEX roll is twelve bytes. 
Tne format of the group on the roll is: 


4 bytes 
ee ae eee eee ae ge ey he a ee 1 
4 pointer to array | 
}-----------~------------------------------ | 
| pointer to index | 
}---------~-- = nnn nnn { 
i displacement | 


The pointer in the first word of the group 
points to the ARRAY REF roll when the 
subscript used contains DO dependent linear 
subscripts (which are handled by Unify) and 
non-linear variables. Otherwise, the 
pointer refers to the ARRAY roll. 


The second word of the group holds a 
pointer to the index value to be used in 
the subscripted array reference. This 
pointer points to general register 9 on the 
FX AC roll if the index value has been 
loaded into that register; if the index 
value has been stored in a temporary loca- 
tion, the pointer indicates the proper 
location on the TEMP AND CONST roll; if the 
index value is a fixed constant, the 
pointer indicates the proper group on _ the 
FX CONST roll. When the information in 
this word has been used to construct the 
proper instruction for the array REGEN Ocr 
the wore. is eleeree to zero. 


The displacement, in the third word of 
the group, appears only when the first word 
of the group holds a pointer to the ARRAY 
roll. Otherwise, the displacement is on 
the ARRAY REF roll in the group indicated 
by the pointer in the first word, and this 
word contains the value zero. This value 
is the displacement value to be used in the 


instruction generated for the array 
reference. | | | 
ROLL 57: ARRAY REF ROLL 


Pointers to this roll are inserted into 
the Polish notation by Parse. At the time 
that these pointers are established, the 
ARRAY REF roll is empty. The pointer is 
inserted into the Polish notation when an 
array reference includes linear loop- 
controlled subscripts. 


The roll is initially created by Unify 
and completed by Gen. The group size of 
the ARRAY REF roll is 16 bytes. The format 
of the ARRAY REF roll group as it appears 
in Unify is as follows: | ae rd 


Li" Lt 2 3 
0 12 56 90 4 
ee qo---t——-- === 
| {R. [Ro | offset | 
be et ee ee ee 
| pointer to register (R,) or to the | 
| TEMP AND CONST roll | 
[nn nnn 
i pointer to register (R2) or to the = |{. 
| TEMP AND CONST roll | 
5 pointer to the ARRAY roll 


The first word of the group contains the 


low 20 bits of an instruction which is 
being formatted by the compiler. /R, and Rs 
are the two register fields to be filled 
with the numbers of the registers to be 
used for the array reference. 
the group contains the pointer indicating 
the register to be assigned for Ry. Word 3 
of the group indicates 
When R, and Rz have been 
second and third words are set to zero. 


Gen completes’ the 
operation code to the instruction that is 
being built. 
roll group in. oor is: 


Word 2 of 


the register Ra. 
assigned, the 
entry by adding the 


The format of an - _ ARRAY REF 
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“11-1112 3: 
0 12 56 9:0 oo 
(ee ae 
Jop code — IRa |R2 | £offset 2k 
p----------~-----4----41--+-1--~ +++ ~---+-----]| 
| .0 or TEMP AND CONST roll = | 
| pointer a aes | 
}--------------------------------- sas yale a ts { 
| 0 or TEMP AND CONST roll | 
| pointer | 
}~---------------------------------------- { 
J ARRAY pointer ; | 
i J 
ROLL 58: _ADR_CONST ROLL ~ 


This roll contains relocatable informa- 


tion that is to be used by Exit. | 


Unify creates the roll which contains a 
pointer to the TEMP AND CONST roll and an 
area code and displacement. The pointer 
indicates an entry on the TEMP AND CONST 
roll which must be relocated according to 
the area code. The displacement is the 
value to be placed in that temporary 
storage and constant area location. 


The group size of the ADR CONST roll ‘is 
eight bytes. The format of the ADR CONST 
roll group in Unify is: 


These groups are constructed by Unify to 
provide additional ‘base table values for 
indexing. / 


ROLL 59:° AT ROLL 


This roll is constructed in Parse and 


used in Gen. It is not used in the 
remaining phases. The group size for this 
roll is twelve bytes. The format of the 
group is: we 

| 4 bytes 

CGS Se oe a ee 1 
oo AT Jabel pointer | 
—--—------— +--+ 4 
ie agee ‘debug label pointer 1 
[-------~---------------------+-----------4 
| return label pointer “| 
Se 


All enree: of the pointers in the group 
point to the LBL roll. The first points to 
the label indicated’ in the source module AT 
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statement. The second points to the made 
label supplied by the compiler for the code 
it has written to perform the debugging 
operations. The third label pointer indi- 
cates the made label supplied for the point 
in the code to which the debug code 
returns; that is, the code which follows 
the branch to the eenugerne code. 


SUBCHK ROLL 





ROLL 603. 


This roll is initialized in Parse and 
used in Allocate. It does: not appear in 
later phases. The group size for this roll 
is eight bytes., The format of the group 
is: : 


| 4 bytes 
De kn fd a ee eee eae aa te he | ae ae EE cD “4 
| <-+--++-—--———+—~— -variable name--—-~—--—--—~—~---- | 
} diite waste damp adshe asthe Sr | 
|i elameca arian nas aa > | 0 | 
Each group holds the name of an array 


listed.in the SUBCHK option of a 


source 
module DEBUG statement. 


ROLL 60: NAMELIST MPY DATA ROLL 


This roll is set up during the construc- 
tion of the NAMELIST tables in Allocate. 
In Exit, the roll is used to complete the 
information in the NAMELIST tables. The 
roll is not used in the other phases of the 
compiler. The group size for the NAMELIST 
MPY DATA roll is eight bytes. 
of the group on this roll is: 


2 bytes” 


| “multiplier | constant | ot 


| address | | o 


The multiplier constant refers to an 
array dimension for an array mentioned in a 
NAMELIST list. The address is the location 
in a NAMELIST table at which a pointer to 
the multiplier constant must appear. In 
Exit, the constant is placed in the téen- 
porary storage and constant area of the 
object module, and a TXT card is punched to 
load its 
fied in the second word of the group. 
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ROLL 62: 


The format 


address into the location speci- 
group contain 





GENERAL -BLLOCATION ROLL 


This. roll is used only during Allocate, 
and is not used in any other phase of the 
compiler. During the various allocation 
operations performed by this phase, the 
roll holds. the information which ultimately 
resides on the remaining ALLOCATION rolls. 


The group size for the GENERAL ALLOCATION 
roll is twelve bytes. The format of the 
group is: 
4 bytes 

ya ee eee ree ae ee 1 
| <------+--~+--+-~-~~-variable-—-----+-~—~-+-~+-++= | 
J----—--------------y---------- = ++ -- 
ae nee displacement | 


| base table pointer | 


| where the base table pointer indicates the 


group on the BASE TABLE roll which will be 
used for references to the variable. | 


The displacement is the distance in 
bytes from the location indicated in the 
BASE TABLE £011 group to the location of 
the variable. 


During the allocation of COMMON, the 
third word of each group holds a relative 
address until all of a COMMON block has 
been allocated, when the relative address 
is replaced by the pointer as indicated 
above. During, the allocation of EQUIVA- 
LENCE variables, relative addressés within 
the EQUIVALENCE variables are used and then 
replaced by pointers as for COMMON. 


ROLL 62: CODE ROLL 
This roll holds the object code 
generated by the compiler, in binary. This 


roll is first used in Gen, where the object 


code for the entire source module is built. 


up on the roll. 


The group size for the CODE roll is 
eight bytes. Two types of groups are 
placed on the roll during the operations of 
Gene The first type of group is added to 
the roll by the instructions IEYBIN, IEYBIM 
and IEYBID. In this type of group, the 
binary instruction is left~justified in the 
eight bytes. When the instruction occupie* 
sonly two bytes, the first word is com- 
pleted with zeros. When the instruction 
occupies two or four bytes, the second word 
of the group holds a pointer to the defin- 


ing group for thé operand of the instruc- 
tion. When the instruction is a 6-byté 
instruction, the last two bytes of the 


zero, and no pointer to the 


operand appears. A unique value is placed 
on the CODE roll by these instructions to 
indicate the beginning of a new. control 
section. 7 7 


The second type of group entered on the 
CODE roll appears as a result of the 
operation of one of the instructions IEYPOC 
and IEYMOC. These groups do not observe 
the 8-byte group size of the roll, but 
rather begin with a word containing a 
special value in the upper two bytes; this 
value indicates an unusual group. The 
lower two bytes of this word contain the 
number of words in the following informa- 
tion. This word is followed by the binary 
instructions. 


The object module code is written out 
from this roll by the Exit phase of the 
compiler. | 


ROLL 63: AFTER POLISH ROLL 


in Parse, 
and is de- 


This roll is constructed 
remains untouched until Gen, 
stroyed in that -phase. 


The AFTER POLISH roll holds the Polish 
notation produced by Parse. 
one statement is moved off 
roll and added to this 
completed; thus, at the end of Parse, 
Polish notation for the. entire source 
module is on this roll. 


of the POLISH 
roll when it is 


In Gen, the Polish notation is returned 
to the POLISH roll from the AFTER POLISH 
roll for the production of object code. At 
the conclusion of the Gen phase, the roll 
is empty and is no longer required by the 
compiler. The group size for this roll is 
four bytes. , 


WORK AND EXIT ROLLS - 


Because of the nature and frequency of 
their use, the WORK roll and the EXIT roll 
are assigned permanent storage locations in 
IEYROL, which is distinct from the storage 
area reserved for all other rolls. As a 


result, these rolls may never be reserved 
and are manipulated differently by the POP 
instructions. The group stats and the 


items BASE and TOP are not maintained for 
these rolls. The only control item main- 
tained for these rolls corresponds to the 
item BOTTOM, and is carried in the general 
register WRKADR (register 4) for the WORK 
roll and EXTADR (register 5) for the EXIT 
roll. 


roll. 


The Polish for 


the 


of the 


WORK ROLL | 


The WORK roll is often used to hold 
intermediate values. The group size for 
this roll is four bytes. The name WO is 
applied to the bottom of the WORK roll (the 
last meaningful word), Wi refers to the 
next-to-bottom group on the WORK roll, etc. 
In the POP instructions these names. are 
used liberally, and must be interpreted 
with care. Loading a value into wO is 
storage into the next available word, 
(WRKADR) + 4, unless specifically otherwise 
indicated, while storage from WO to another 
location involves access to the contents of 
the last word on the _ roll, (WRKADR). 
WRKADR is normally incremented following a 
load operation and decremented following a 
store. 


EXIT ROLL 


The EXIT roll holds exit addresses for 
subroutines and, thereby, provides for the 
recursion used throughout the compiler. 
The ANSWER BOX is also recorded on the EXIT 
The group size for the EXIT roll is 
twelve bytes. The first byte is the ANSWER 
BOX. The remaining information on the roll 
is recorded when a_=e subroutine jump is 
performed in the compiler code; it is used 
to return to the instruction following the 
jump when the subroutine has completed its 
operation. 


The values placed on the EXIT roll 
differ, depending on the way in which the 
subroutine jump is performed. As a result 
of the interpretation of the IEYJSB POP 
instruction, the last three bytes of the 
first word contain the location of the 
IEYJSB plus two (the location of the POP 
instruction following the IEYJSB, the 
return point); the second word of the group 
holds an address within the IEYJSB subrou- 
tine; the third word contains the location 
global label for the routine from 
which the subroutine jump was made plus two 
(the value of LOCAL JUMP BASE in that 
routine). 


As an example of how a subroutine jump 
is accomplished by means of machine lan- 
guage instructions, the following instruc- 
tions are used: 

L TMP, GO052J 
BAL = ADDR,JSB STORE IN EXIT 
to replace the POP instruction 


ITEYJSB G0052I 
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In this case, no value is placed in the 
last three bytes of the first word; the 
second word holds the address of the 
instruction . following the BAL; the third 
word holds the location of the global label 
immediately preceding the BAL plus two (the 
value of POPADR when the jump is’ taken, 
which is also the value of LOCAL JUMP BASE, 
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jump was-made). 


the base address to be used for local: jumps 


in the ‘routine from which the subroutine 


On return from aie subroutine, these 
values are used to restore POPADR and LOCAL 
JUMP BASE and they are pruned from the EXIT 


roll. 


This appendix shows the format of the 
Polish notation which is generated by the 
compiler for each type of statement in the 
FORTRAN IV (G) language. 


GENERAL FORM 


The format of the Polish notation 
depends on the statement type, but always 
terminates with the control driver which 
indicates the type of statement: 


4 bytes 
Gre re eg ee ae 1 
_ ------------------------—--- —— 
| ° |f Polish for 
| ° |} statement 
| ° | 
|----------~------------------- 4' 
a a ac a a a a a aaa 4/ 
|control driver | 
tel ck ee a ees | 
[statement number | 
ae Do ee Oe rd i ere Oe ree oe ove ea RP Pe J 


The statement number is an integer whose 
value is increased by one for each state- 
ment processed. This value is used only 
within the compiler. 


LABELED STATEMENTS 


For labeled statements, a pointer to the 
label is inserted between the control driv- 
er and the statement number: | 


4 bytes 

a i Cr ee ee 1 
}------------------------------ { 

| - | eee 

| . |>Polish for 
| ° |,{ statement 
|----------~------------------- { 
|------------------------------ 1 

Jcontrol driver | 

oe ee ap ok Ne eC re RE Pero J 
| label | 
rrr rr rn 
|pointer to statement label [ 
|------~----------------------- { 
|statement number | 

Ean A tice ee ne er ne Seg Sa SNe a J 


The label information is not included in 
the following descriptions of the Polish 
notation for individual statement types. | 


APPENDIX C: POLISH NOTATION FORMATS 


ARRAY REFERENCES 


The Polish notation for an array 
reference whose subscripts are all linear 
functions of DO variables consists simply 
of a pointer to the appropriate group on 
the ARRAY REF roll. The Polish notation 
generated for all other references to an 
array element is: | 


4 bytes | 
Tey ee Pee eye tage, oe ee gee geen ope ree ee aps 8g hag oT | 

Jarray driver | 
}----------------------------- | 

|pointer to array | 
|—--------—------------------ { 

_e-------------------------- 4) 

| , |f Polish for 
| ° |>subscript 1 
| °. | a 
}----------------------------- { 
}----------------------------- { 
|multiplier | 
}----------------------------- 1 

Jargument driver [ 
}----------------------------- { 
}~--~------------------------- 4) 

| ° lf Polish for 
| ° -' [»subscript 2 
| oe | 
}----------—— pe a Fe ee ee rane ee Ne ae { 

 SraRiCS aN Ek Ea gee aan 
|multiplier | 

occa at eee ee he ae i ere, | 

Jargument driver | | 
|----~-------------—---------- { 

| ° | 

| ° | 

| . | 
}----------------------------- { 
}-----------------------------{] 

| ° lf Polish for 
| e |>subscript 7 
| ° | 
}----~------------------------ { 
}-------~-----------—---------} 
|multiplier | 

Ola Oa PS ae Ee Te ee | 

jargument driver | 
ar a a | 

j|dummy array pointer | 

ee a ea J 


The pointer to the array may indicate 
either (1) the ARRAY roll, when none of the 
subscripts used in the array reference are 
linear functions of DO variables, or (2) 
the ARRAY REF roll, when some, but not 
all, of the subscripts are linear functions 
of DO variables. The subscripts for which 
Polish notation appears are those which are 
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not linear functions of DO variables. Only 
the required number of subscripts appear. 


The multiplier following each subscript 
is the multiplier. for the .corresponding 
array dimension. This value is an integer 
unless the array is'a dummy including dummy 
dimensions which affect this array dimen- 
sion; in this case, the multiplier is 
represented by a pointer to the TEMP AND 
CONST nel 


ENTRY STATEMENT | 


The Polish notation generated for the 
ENTRY statement is: 


The. pointer points to the ENTRY NAMES 
roll. 


ASSIGN STATEMENT 


The Polish notation generated for the 
ASSIGN. statement is: 


ht ec ee 4 
| ASSIGN driver | 
Ups Se aster ca cic ns ee ae ee ee 4 
[statement number | 
SN ee oe Jj 
ASSIGNED GO TO STATEMENT 
The Polish notation generated for this 
statement. is: 
4 bytes 
Gos ge re ee 1 
[pointer to variable | 
name ee ome oe wan a + -- | 
|assigned GO TO driver | 
AP Ae pe SEN ee ee ee ee a ee ee ae ae en en er ee --------—f 
|statement number | 
ae eR a ee Re eee EE ES So NS Oe oe WL eS 4 


LOGICAL IF STATEMENT 


The Polish notation generated for ‘this 
statement is: | 7 


4 bytes 

ey Sr re es gar erery arc cs 1 

(peor nr . - 
| Le oS ee If Pokish for 
aes : ee Oe vs |S Logical 
| : - 7 —. - |l. expression 
|----------------------—-----— 
|}------- 4 
——-—-—-—-—-——-—---——----—--—-—----—--——- oe 
eee . |f Polish for 
| ° |‘ statement 
|. ; e | "Ss" 
}------------------------------4 
}------------------------------ { 
Jlogical IF driver | 
Sct Sea Gere ss 4 
| statement number | 

J 


RETURN STATEMENT 


The following Polish notation is 


pro- 

duced for the RETURN statement: | 7 
4 bytes 

| Raa a ae aaa a ate ae Oe en ene eet ree 
|pointer to I a 
a es SP a PE NS eR en a 4 
|RETURN driver [ 
a a a a a a a ie ee ae ate aria aia at oe | 
[statement number [ 
a a a a ae ates es de 4 


The pointer to I does not appear if the 
statement is of the form RETURN. 


ARITHMETIC AND LOGICAL ASSIGNMENT STATEMENT 


The Polish notation produced for this 
statement is: | 


4 bytes 


POLS LE AE ALLS AS LS LS A SS A SS AS SS CT A AT Ra EAS SS NY ce 1 


{pointer to variable to be set | 


| ——n nn n nnf 
[----------~--- +---------------4 

| ° {{ Polish for 
| . [> right side 
| e | ; ; 

| —--------—------—-----------f 
}----------~-------------------4 
geste driver | 
See eo --——4 

[statement number { 
Set ert ern rer sen Neen era SE ae eee oe Eee ey J 


The Polish notation for the right side 
of the assignment statement is in the 
proper form for an expression, and includes 
array references where they appear in the 
source statement. The variable to be. set 
may also be an array element; in this case, 
the pointer to the variable to be set is 
replaced by the Polish notation for an 
array reference. 


UNCONDITIONAL GO TO. STATEMENT 


The Polish “notation produced for this 
statement is: 


4 bytes 
 saieaaeaiansipesieatanahaesieteeteestanteaieaesteateateneae 0 tas na aoe ee ee apn ae ate ae ne ee ce AEN aS ce weet ce ee 1 
[pointer to label | 
wa - - -- - - - + - - - { 
{GO TO driver | 
a i See 
|statement number l 
BS ae a Sl J 

COMPUTED GO TO STATEMENT 

The following Polish notation is 


pro- 
duced for this statement: 


»y branch 
points 


> me one came ane eee OUP cane GS cae SEE SEER GE) CET OEY cuune ame SOE ON wey en cE GED Gee ee ee eee ee oe 





[statement number 


bee emcee 


ARITHMETIC IF STATEMENT 


. ‘The following ‘Polish. notation is. Bro- 
duced for this statement: se Hos | 


4 bytes 

Ca a er a 
}------------------------------ { 
| e | Polish for 
| . be |’ expression 
| ° | 
}------------------------------ 4 
}------------------------------, 
Jpointer to x1 | 
poo Se 4f branch 
|pointer to x2 | |‘ points 
}------------------------------ { 
jpointer to x3 { 
Pe re 1’ 
{pointer to label next stmt. | 
}------------------------------ { 
[IF driver | 

| 
jstatement number | 
Osea a J 


The label of the next statement is 
inserted following the IF driver because 
the next statement may be one of the branch | 
points referenced; if it is, code will be 
generated to fall through to that statement 
in the appropriate case(s). 


DO STATEMENT 

The following is the Polish notation 
produced for the statement DO x i = ml, M2 
m3: 

4 bytes OM, 
ee 1 
}pointer to Mz (test value) , ae | 
|-----------------------------------------4 
|pointer to M, (increment) | | 
}--------------------------------—-------- { 
Jpointer to LOOP DATA roll [ 
a ee en a i a a eel 
[pointer to LBL roll | 
Sa re eo a NE en ee pe ne SR Rae aw er apt ee 4 
|DO driver 2 
alee tale at ee a ea ee | 
[statement number | 
a a a ee 4 
_ The pointer to m3 appears, even if the 
increment value is implied. 3 
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CONTINUE STATEMENT 


~The Polish notation _ produced for this 
statement is: 


4 bytes 
eRe a A ee ne DCR Soe el aE SE ne OR Se Ree - 
| CONTINUE driver | 
aa a a ee | 
| statement ‘number | 
De a ee J 
PAUSE AND STOP STATEMENTS 
The Polish notation produced for these 
Statements 1s: 
4 bytes 
a a a a 1 
|pointer to constant | 
ae a ee 
| PAUSE or STOP driver | 
}----------------------------------------- { 
|statement number | 


For both the PAUSE statement and the 
STOP statement, the constant appears on the 
LITERAL CONST roll, regardless of its 


nature in the source statement. If no 
constant appears in the statement, the 
pointer to the constant points to the 


literal constant zero. 


END STATEMENT 


The Polish notation 


generated for the 
END statement is: | 


BLOCK DATA STATEMENT 


The Polish notation 


generated for the 
BLOCK DATA statement ‘is: oe ct 


DATA STATEMENT AND DATA IN EXPLICIT 
Sere cece. STATEMENTS © | 7 


- For each statement 
specificdtion) 


(DATA or Explicit 
in which data values for 


variables are specified, a Polish record is 


produced. This record ends with a- DATA 
driver and a statement number. For each 
variable initialized by the statement, the 
following appears: 


F : 
| offset | 
Dt hada ee lela J 


The offset is the element number at which 
initialization begins; if it does not 
apply, this word contains the value zero. 


This information is followed Py ene pair 
of groups 


or, when the constant is PE CSEa he the three 
groups 


4 bytes 
i. 
ance 
ele ee 
ee ee See a een Or EE CET ee hee EO AS EN nn ee LE NE OS el erat Ra eRe EEE eae a J 


where the last group indicates the number 
of elements of an array to be filled by the 
literal constant. For array initializa- 
tion, one or more of the "constant": groups 
may appear. 7 oo : : 


I/o LIST 


The Polish notation for an I/O List 
contains pointers to the variables in the 
list, Polish notation for array references 
where they appear, and pointers and drivers 
to indicate implied DO loops. 


The I/O list 


((c(I), I=1,10),A, B) 


for example, results in the following 
Polish notation: 7 ee 
4 bytes 
ac A esa EA a a a 1 
Jpointer to Mg (test value) | 
peat nnn nnn nnn nnn nnn nnn { 
Jpointer to Ms (increment) } 
cee i ao a | 
jpointer to LOOP DATA roll | 
ER tees pet open es peerage eR ee ene ae a 4 
implied DO driver i 
Pere oe eee a ac a ae ae mana | 
Jpointer to C he _ : | 
mo a nn 4 
J}1 (number of subscripts) ~~ ] 
ce ee ne ee 4 
Jpointer to I (subscript) | 
}----------------------------------------- { 
Jargument driver | 
Jarray driver | 
Ss a as a ae a ee J 
120% DO Close driver ' 
Salle ea sh ess ae re 4 
| pointer to A | 
Sinead ecg Sg Gx Gack 1 


wiecaves between, ad including, the 


implied DO driver and the array driver is 


an array reference, as it would appear 
wherever C(I} was -yeferred to in source 
module statements. 7 | = 4 


INPUT STATEMENTS © 


The following paragraphs 
Polish notation produced for all forms of 


the READ statement except direct access. — 


FORMATTED READ | 


For the form READ (a,b) list, the for- 


matted READ, the Polish notation generated 


is: 


discuss the 


mam 

JIOL driver -_ | 

pena nena nn { 
ESLER EE KE RO CGE BER po 

| : lf Polish for 
| ‘ ~  |pT7O list 

| . | 
}------------- ----+--=--+++-- a 

| code word | 

Pen ee re ee ane el a oe ae ee eee a Ee 4 


| IBCOM Sntny formatted READ | 


| READ/ WRITE flag, 
| . nonzero= READ > | 


Ba sts aa i ee ere a ea ee | 
JREAD WRITE driver | 
p---~~---~-----~-------+-------- { 
jstatement number | 
Vie Been oe J 


The pointer to the FORMAT points either 
to the label of the FORMAT statement or to 
the array in which the FORMAT is_ stored. 
The END= and ERR= drivers and the pointers 
following them appear only if the END and 
ERR options are used in the statement; 
either one or both may appear, and in any 
order with respect to each other. If no 
I/O list appears in the statement, the 
Polish for the I/O list is omitted, but the 
IOL driver appears nonetheless. 


The code word contains zero in its 
high-order three bytes, and, in its low- 
order byte, a unique code specifying the 
operation and unit for the input/output 
statement. This code word distinguishes 
among the various READ statements. and is 
inserted in the code peoece? for them. 


Input /output operations are performed’ by 
the RUNTIME routines. IBCOM is a transfer 
routine in RUNTIME through which all input/ 
output except NAMELIST is performed. -. The 
IBCOM entry for formatted READ indicates an 
entry point to this routine. (See Appendix 
D for further discussion of IBCOM.) The 
pointer to IBCOM points to the routine on 
the GLOBAL SPROG roll. Be Sa ok 
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NAMELIST READ 


For the form READ (a,x), the NAMELIST 
READ, the following changes are made to fhe 
Polish notation given above: 


1. The FORMAT driver is s replaced By a 


NAMELIST driver. 


2. The pointer to the FORMAT is replaced 
by a pointer to the NAMELIST. | 


3. The code word value is changed. 
4. The IBCOM entry .is ‘replaced by the 
value zero, since NAMELIST. input/ 
output is not handled through IBCOM. 


54 aheepointer to IBCOM is replaced by a 
| pointer to the NAMELIST READ routine. 


6. No I/O list may appear. 
“UNFORMATTED READ 

For the form READ (a) List, the unfor- 
matted READ, the following changes are made 
to the Polish notation given above: | 
1. The FORMAT driver is removed. 


pointer to the FORMAT is removed. 


2. The 
3. The IBCOM entry, formatted. READ, is 
replaced by the. IBCOM entry, unfor- 
matted READ. 
READ STANDARD. UNIT 
For the form READ b, list, the standard 


unit READ statement, the following changes 
are made to the Polish notation given 
above: 7 i 


1. No END= or ERR= drivers may appear, 
. nor may the cortceponding pointers to 
labels. | | . 

2. The code word value is changed. 
OUTPUT STATEMENTS 7 

The fcllowing paragraphs discuss the 
Polish notation produced for all forms of 
the WRITE statement except direct access, 
and for the PRINT and PUNCH statements. 
evita 


(a,b) list, the 
Polish notation 


. ivan ‘the form WRITE 
formatted WRITE, the 
generated is: : 
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ahs aa a eh ees Sees see 4 

|IOL driver } 
}---------~--------------------- 4 | 
ees eee oes 1 oe 

| ; . - |f Polish for 
| or ae |>I7o list | 
| , | 
}-----~------------------------ a 


}IBCOM entry, formatted WRITE | 


| READ/WRITE flag, zero= WRITE, | 
} nonzero= READ | a | 


eee tee a ee ee ee ee 4. 
|READ WRITE driver | 
}------------------------------- { 
Jstatement number i 
aCe ed AN re IV ny AD ete ee ef ee aNEON POY EN, I Re NT J 


The pointer to the FORMAT points either 
to the label of the FORMAT statement or to 
the array in which the FORMAT is_- stored. 
The END= and the ERR= drivers’ and the 
pointers following them appear only if the 
END and ERR options are used in the state- 
ment; either one. or both may appear, and in 
any Order relative to each. other. If no 
I/O list appears in the statement, the 
Polish for the I/O list is omitted, but the 
IOL driver appears nonetheless. 


contains zero in its 
high-order three bytes, and, in its low- 
Order byte, a unique code specifying the 
Operation. and unit for the input/output: 
statement. This code word distinguishes 
among the various output statements and is 
inserted in the code produced for then. 


The code word 


Input/output operations are performed by . 
the RUNTIME routines. IBCOM is the initial 
entry of a transfer vector in IHCFCOMH 
through which all input/output except NAME- 
LIST is. performed, (IHCFCOMH is further 
discussed in REESoans F.) The pointer to 


IBCOM points 


to the routine on the GLOBAL 
SPROG roll. . a | _ 


NAMELIST WRITE 


For the form WRITE (a, x), the NAMELIST 
WRITE, the following ‘changes are made to 
the Polish notation given above: 


7 The FORMAT driver . is” 
—.. NAMELIST. driver. 


2. <The pointer to the FCRMAT is replaced 
-. by a pointer to the NAMELIST. 


3. The code word value is changed... 

Yu. The IBCOM entry is replaced by the 
value zero, since NAMELIST input/ 
output is not handled through IBCOM. 


5. The pointer to IBCOM is replaced by a 
pointer to the NAMELIST WRITE routine. 


6. No I/O list may appear. 


UNFORMATTED WRITE 


For the form WRITE (a) list, the unfor- 
Matted WRITE, the following 
made ; to the Polish notation given above: 


‘1. The FORMAT driver is removed. 
2. The aaibee, to the FORMAT is xemoved. 
3. The IBCOM entry, 


replaced by the. 
matted WRITE. 


foriactea. WRITE, is 
IBCCM entry, unfor- 


PRINT 


The Polish notation generated for the 
-form PRINT b, list is identical to that 
given for the formatted WRITE statement, 
with the following changes: 
1. No END= or _ ERR= drivers may appear, 
| nor may the corresponding pornters) to 
labels. ee . ’ 


26 The code word value is changed. — 
PUNCH 


The Polish notation. for the statement 
PUNCH b, list is as given for the formatted 
WRITE with the following changes: 


1. No END= or ERR= 


replaced se) a 


changes.) are 


. Appendix C: 


drivers may appear, 
nor may the corresponding pointers to 
labels. | . 


2.. The code word value is changed. 


DIRECT ACCESS_STATEMENTS 


discuss the 
the direct 


~. The following paragraphs. 
Polish notation. produced for 
access input/output. statements. © 


READ, DIRECT ACCESS 


For the forms READ (a‘'b,b) list and READ 


(a'r) list, the following Polish notation 
is generated: 

4 bytes 
a ae as 1 
[pointer toa (data set) | 
}~-—~--~---~---~----++--+------ 1° 
[direct Io ‘driver is 
| soestestharhentesieateshasiest aahesiesiesteiedentatentateatedtestenentataseson 4 
f- al ik bl ed Ss Sac a a ea ce as leas ay i a a ae 4 7 
| ‘ |{ Polish for 
| e [7x : 
. | 
xa a ee © | 
p-----~----------~----~-------- { 
Jexpression driver | 
p--=---=--=--~--------------~-- { 


Ee nD Spe eA ae Eee eee ee 

{IOL driver | 

ponmnnm sence tase swerceante isa 
| eipcunieet aren mesenteric | pce ee 

| ; {f Polish for 
L ‘ [>I7O list — 
a : | ee 
aa a a a | 

pe cae le te eel a | 

Jcode word | 

p---~=~ ~~ =~ ~----------+------ 4 

| IBCOM nee. READ | 
bee ed 

jpoxnter to IBCOM | 

sa i oa io ie os is ie ea a tals See ea | 
J".EAD/WRITE flag, zero= WRITE, | 

{ nonzero= READ | 

ieee ie ees er ar teests ott eee | 


t - 
iREAD WRITE driver | 
}-~-------------~---------------| 


[statement number ee | 
L ae 
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The END= and ERR= drivers and the point- 
ers. following them appear only if the END 
and ERR options are used in the source 
statement; either one or both may appear, 
and in any order with respect to each 
other. If b does not appear in the source 
statement (the second form), the corres~ 
ponding pointer does not appear in the 
Polish notation. If the I/O list does not 
appear in the source statement, the Polish 
notation for the I/O list is omitted from 


the Polish, but the I0L driver appears 
nonetheless. 
The code word contains zero in its 


high-order three bytes, 
order byte, a unique code specifying the 
Operation and unit for the input/output 
Statement. This code word distinguishes 
the direct access statements from other 
input/output statements and is inserted in 
the code produced for them. 


and, in its low- 


WRITE, DIRECT ACCESS 


The Polish notation 
forms WRITE (a‘r,b) list and WRITE (a'r) 
list is identical to that produced for the 
corresponding forms of the READ, direct 
access statement with the following 
exceptions: 


1. The IBCOM entry, READ is replaced by 
the appropriate IBCOM entry, WRITE. 


2. The value of the code word is changed. 


FIND 


produced for this 
that for an 


Polish notation 
identical to 


The 
statement 1S 
unformatted direct access READ statement 
given above, with the exception that the 
code word is changed to indicate the FIND 
statement. 


DEFINE FILE 


The form of this statement is: 


DEFINE FILE al (m1,11,f£1,v1),a2 
(m2,12,£2,v2),...,an(mn, in, fn, vn) 


The Polish notation produced for it is: 
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produced for the | 


~~ 4& bytes 


Ce ng ee ee ee ae ae, 1 

jpointer to al : 

asta ae to mi | | 

Jpointer to 11 | file 1 data 
Bese le eee See 4 

i L, or U ; 

[pointer to v1 : 

Jpointer to a2 { 

}--~-~--------~------------- { 

| ° | 

} . |. fale 2 data 

| | if 

Jpointer to v2 | . 
a Rie pen mee en ene Sen cnn ee eee J 

| : | 

| ; | 

! | : | 

jpointer to an | 

aca eae: { 

J . | file n data 

— . 

jpointer to vn 

|DEFINE FILE driver | 
iLvcncennnecereleceeo cea ees 7 

jstatement number | 

EE ee Ree ae oe en SS nO a J 


where the fourth word of each set of file 
data holds the BCD character E, L, or U in 
the high-order byte and zeros in the 
remaining bytes. 


END_FILE_ STATEMENT 


The Polish notation produced for’ END 
FILE is: | 
4 bytes 
Ce ee ep hw aoe ee eee Ge 1 
jpointer to a (data set) | 
aes sa Sa as aS ee ss St ca J 
{IBCOM entry for END FILE | 
fos st oc a ee eae ea a st lai { 
jpointer to IBCOM | 
a a nn ee 4 
|BSREF driver | 
penn nanan nnn nnn nnn nnn nnn nnn nnn { 
[statement number l 
Mi ts ls a ess Se ete al st ees J 


REWIND STATEMENT 


The Polish notation produced for the 
‘REWIND statement is identical to that for 
the END FILE statement with the exception 
that the IBCOM entry for END FILE is 
replaced by the IBCOM entry for REWIND. 


BACKSPACE STATEMENT 


The Polish notation produced for the 
BACKSPACE statement is identical to that 
for the END FILE statement, except that the 
IBCOM entry for END FILE is replaced by the 
IBCOM entry for BACKSPACE. 


STATEMENT FUNCTION 


The Polish notation 
Statement function is: 


generated for a 


4 bytes 
Be ee ee ge ee a ee 1 
{pointer to function name | 
}------------------------------ { 
| | 
}------------------------------ { 
| ° jf Polish for 
| . j) right side 
| : | 
}------------------------------ { 
| | 
}------------- ----------------- { 
{statement function driver | 
}------~----------------------- { 
[statement number | 
A pe foie eee cere ene Ferree gene Sear J 


FUNCTION STATEMENT 


The Polish notation produced for the 
FUNCTION statement is: 
4 bytes 
es ee 
ag aa 
[statement nonber EEE ea ee 
a a a a as a as es a ee a a a se es hs a a ee J 


where the pointer points to the ENTRY NAMES | 


roll. 


FUNCTION (STATEMENT _OR_SUBPROGRAM) 


REFERENCE 


The Polish notation generated for a 
reference to a function is: 


aaa aN a a a a a | 

{pointer to function name | 

aa ree Pes Ree ee Rr ee eer -~--4 

Jnumber of arguments | 
}------------------------------ { 
|expression driver [ 
}------------------------------ { 

| | 
}------------------------------ i 

| . |{ Polish for 
| p |; argument 1 
| : | 
~----------------------------- { 
Jexpression driver | 
}------------------------------ { 

| | 
}~----------------------------- { 

] : |{ Polish for 
1 . |} argument 2 
| . | 
}------------------------------ 4 
Jexpression driver | 
}------------------------------ { 

| : | 

° | 

: | 
}------------------------------ 4 

| | 

aes Se a 

| . |/ Polish for 
| ; |) argument n 
| : | 
}------------------------------ { 
Jexpression driver if 
}~----------------------------- { 

Jpointer to function name | 

ESE gong pea pe CRESS LAIR Ue epee Ry en eee J 


This Polish notation is part of the 
Polish notation for the expression in which 
the function reference occurs. 


SUBROUTINE STATEMENT 


The Polish notation generated for the 
SUBROUTINE statement is: 


where the pointer points to the ENTRY ‘NAMES 


roll. 
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CALL STATEMENT ~— 


The Polish notation for. the CALL» 


state- 
menr. isi” aed ie 


Co ss ee eee cane Cm cee NED END EEE ERD CAND SEND GERD ED GED ETD GHURD CED ED GED SND GED GD END 
ee eee ae ee me ane aie deme cap eee cop ean GE ee ee ED ae CD ED ce De a ee ee 


<ReP ep cere cee anes <tame eee eu caee eeu wane eae aa GED ele ane ete cae eee ee ee ee ee a ee ee oe ee 


eee cers sen eee eaten eats cams cee eke ctnen GAA a OE SOD GENES GE SO NS SY SY SED acD SE ND GREY aE RD mY 


Polish for 
argument 1 


Oath ia eilaia Cian Eee A NS ES ES TS AAD NS A ES SD RS ND EN GATS AEN SNS ED SOND GETS ORES SREY <OSEEED <p RED LSE 


Polish for 
argument 2 


argument n 


jpointer to x2 | 

}--—-—------- EERP CSU wee EET GED GDS ESD ee ae ee oe Ee ees ce ee ae ee oo oe 

label 
arguments 


Bi ee ee ee 
; ~ eee | : Polish for 
| 


pale eeecan te entonenpate rer Monee pate ones 
| computed GO TO driver | 

Seas oa 
|CALL driver i 
Rey ee cos Sit Ae tt ] 
|statement number | 


_ Label arguments 
"number of arguments" which appears as’ the 
third word of the Polish notation, and no 
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‘bottom of the Polish as indicated. 


are not counted in the 


representation of them appears in the 
Polish notation for the arguments. All 
label arguments are grouped together at the 
If no 
label. arguments exist, the section from the 
"pointer to xi" to and including the "com- 
puted GO TO driver" does not appear. 


DEBUG FACILITY STATEMENTS 


The following paragraphs describe the 
Polish notation produced for the statements 
of the debug facility. 


AT 


‘The Polish notation generated for the AT 
statement is: 


4 bytes 
Cy ee eee ee ig ee eee ees 1 
| pointer to AT group ‘| 
a eh | 
| T driver | 
PIR eR me OA se Sn Ee fe Oe eas we ee eS oe Pee | 
| statement number tee 
Da i 4 


The pointer points to the AT roll group 
which contains the information relating to 
the AT statement represented by the Polish 
notation. 


TRACE ON 


The Polish notation generated for the 


TRACE ON statement is: 


4 bytes 
ae ee ad oe ee te e 
| TRACE ON driver | 
a ae as | 
| statement number | 
Be a a J 
TRACE OFF 


The Polish notation generated for the 
TRACE OFF statement is: 


4 bytes 
a i a er = 
| TRACE OFF driver | 
}|-----------------------------+----------- | 
| statement number _ | 
a a as es a eee j 


DISPLAY 


- The Polish notation | generated for the 
DISPLAY statement is: 


4 bytes 
sy re eS 1 
| pointer to NAMELIST WRITE | 
|}---------------------------------------- { 
| 0 | 
}----~------------------------------------ { 
| | NAMELIST pointer | 
|----------------------------------------- { 
| DISPLAY driver | 
Ye ee ee z 
[ statement number | 


where the pointer to NAMELIST WRITE points 
to this routine on the GLOBAL SPROG roll; 
the value zero is placed on the roll for 
conformity with other NAMELIST input/output 
statements; the NAMELIST pointer points to 
a group constructed for the DISPLAY state- 
ment on the NAMELIST NAMES roll.. 
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This appendix describes the code pro- 
Guced by the FORTRAN IV (G) compiler for 
various types of source module statements. 


BRANCHES 


All branch instructions in the object 
module consist of a load from the branch 
table, followed by a BCR instruction, eith- 
er conditional or unconditional, which uses 
the branch table value as its target. 


The production of this code depends on 
the operation of Allocate, which replaces 
all jump target labels on the LBL roll with 
pointers to entries in the object module 
branch table. Using this information, Gen 
can write the load and branch instructions 
eventhough the address of the target may 
not yet be known. 


When Gen encounters a lateled statement 
which is a jump target, it sets the appro- 
priate entry in the branch table to the 
address of the first instruction it pro- 
duces for that statement. 


COMPUTED GO TO STATEMENT 


The following code is generated for the 
Computed Go To statement: , 

L 15, variable 

SLL |. 15,2 

BALR 14,0 

LTR 15,15 

BNH 4n+22(0,14) 

LA 1,4n(0,0) 

BH 4n+22(0,14) 

L | 1,18(15,14) 

BR 1 


n address constants 


where variable is the Computed Go To vari- 


able, n is the number of branch points, and 
4n is the length of the list of n address 
constants. | | 


DO STATEMENT 


Ane eS eee ONE ees CE ERED GD OUND me aoe ee 


The use of a .DO loop in a FORTRAN 


program can be described by the following 
example: : | 

DO 5 I = mi,m2,m3 
5 CONTINUE 


When the DO statement iS processed dur- 
ing phase 4, the following takes place: 


1. The code 


L RO,m1 
A ST RO,I 


is generated, where the label A is 


constructed by Gen. 


2. The address of the instruction labeled 
A is placed in the branch table. 


3. An entry is made on the DO LOOPS OPEN 
roll which contains pointers to m2, 
m3, the label A, I, and the ilabel 5S. 


On receiving the Polish notation for the 
CONTINUE statement in the example, phase 4 
produces the following code: | 


L RO,1 

L R1, branch tabl 
L R2,m3 | 
L R3,m2 _ 
BXLE RO,R2,0(R1) 


where the load from the branch table sets 
R1.to the address of the created label. A. 
When this code has been completed, phase 4 
removes the bottom entry from the DO LOOPS 
OPEN roll. 
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STATEMENT FUNCTIONS 


The following code is generated at the 
beginning. of each statement function: 


«stm 


2,3,18(15) 
STM 6,12, 26(15) 
LR 7,14 
LR 9,1 

LR 6,15 
B 54(0,15) 


nine-word buffer. 


a 


The buffer is followed by the code _ for 
the statement function itself, including 
the code to load the return value. The 
following code closes the statement 
function: | 

| | 14,7 

LM 6,12, 26(6) 

BR 14 
SUBROUTINE AND FUNCTION SUBPROGRAMS 

The following code is generated to save 


required information at the main entry to 
each SUBROUTINE and FUNCTICN SUPE OSrat: 


B X(0,15) 

DC ALi(length of Ident) 
DC . CLn (Ident) 

STM. 14,12,12(13) 

LM 2,3,40(15) 

LR 4, 13 , | 

L . 13, 360, 15) 

ST 13,80, 4) 

STM 3,4,0(13) 

BR 2 

DC | (ADDRESS SAVE AREA) 
DC (ADDRESS PRCLOGUE) 


» dC (ADDRESS EPILOGUE) | 


This code is followed by the 
code for saving 
each of the ENTRYs to the subprogram (the 
sequence of code appears once for each 
ENTRY, in the order of the ENTRYs): | 


following 
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from one) multiplied by four. 


required information for. 


B X(0,15) 

pc ALi(length of Ident) 
pe  CLntident) | 

STM 14,12,12(13) 

LM --2,3,32(15) 

L 15,28(0,15). 

B 7 200,15) | 
DC (ADDRESS MAIN ENTRY) 
DC .- (ADDRESS PROLOGUE) | 
DC (ADDRESS EPILOGUE) 


The save code for the ENTRYs to the 


~subprogram is followed by a PROLOGUE, which 


and 
which returns arguments to the 


transfers arguments to the subprogram, 
an EPILOGUE, 


calling routine for the main entry to the 
subprogram and for each ENTRY to the 
subprogram. Oo 

The. following code is pacouces for the 


RETURN statement: 


SR —s:115,15 


L «14, One 13) 


ER SEB 
which branches to the appropriate EPILOGUE. 


following 


The code is produced for the 
RETURN I statement: a 

L- 15,1 

SLL 15,2 

L 14,0(0, 13) 

BR 14 
which also branches to the appropriate 
EPILOGUE. : 

The PROLOGUE code generated for each 


entry point to the subprogram moves argu- 
ments aS required and branches to _ the 
entry. The following code is generated — to 
move each call by name Broan: : 


L 2,n(0,1) 
ST 2,global dmy 
where n is the argument number (the argu- 


ments for each entry point are numbered 


The following code is generated to move 
each call by value argument: 

L 2,n(0,1) 

Mvc aes dmy (x).,0(2) 


where nis the argument number multiplied 
by. BOUr) and x is. the size of the dummy. | 


code to Veaeulabe dummy dimensions fol- 
lows the code to move arguments. 


The following code is. generated at the The EPILOGUE code generated far each 
close of all PROLOGUEs: entry point to a subprogram moves arguments 
back to the calling routine and returns to 
BALR 2,0 it, as dictated by the RETURN or RETURN I 
L 3,60, 2) statement. 
DC (ADDRESS OF CODE ENTRY POINT) 
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The first instructions in each EPILOGUE 
are: 

L 1,4(¢0,13) 

L 1,24(0,1) 

The following code is generated to 


return each call by value argument: 


L 2,000; 1) 
MVC O(x,2),global dmy 
where n is the argument number multiplied 


by four and x is the size of the dummy. 


For FUNCTION subprograms, 


the 


instruction is generated: 


LX 


where 


x 


is 
FUNCTION is complex, 


0,entry name 


the instruction mode. 
two load 


are required. 


following 


If the 
instructions 


The following code is generated for the 
closing of each EPILOGUE: 


13, 40,13) 


Li 
iB 14 19(0,13) 
LM 2,12, 2813) 
MVI 12(13), 255 
BR 44 


INPUT/OUTPUT_ OPERATIONS 


The following paragraphs 
produced for the FORTRAN input/output 


code 


describe 


the 


FORMATTED READ AND WRITE STATEMENTS 


Statements. The generated instructions set 
up necessary parameters and branch into the 
IBCOM# transfer table. This table has’ the 
following format: 


formatted READ. 
formatted WRITE 
Second list item, formatted 
Second list array, formatted 
Final entry, end of I/O list 
Main entry, unformatted READ 
Main entry, unformatted WRITE 
Second list item, unformatted 
Second list array, unformatted 
Final entry, end of I/O list 
Backspace tape 

Rewind tape 

Write tapemark 

STOP 

PAUSE 

IBERR execution error monitor 
IBFINT interruption processor 
IBEXIT job termination 


I BCOM# Main entry, 


+4 Main entry, 
+8 
+12 
+16 
+20 
+24 
+28 
+32 
+36 
+40 
+44 
+48 
+52 
+56 
+60 
+64 
+68 


The code produced for these statements 
is: 
CNOP 0,4 
L 15, =V(IBCOM#) 
BAL 14,N(15) 
pc XLO. 4"PI',XLO.4'UL', AL3 (UNIT) © 
DC AL1 (FI), AL3 (FORMAT) 
DC AL4 (EOFADD) "optional" 
DC AL4 (ERRADD) "optional" 
where: 
PT = 0 if neither EOF nor _ ERR is 
specified | 
= 1 if EOF only is specified 
= 2 if ERR only is specified 
= 3 if both EOF and ERR are 
specified 
UI = 0 if unit is an integer constant 
= 11f unit’ is a variable name. 
= 4 if unit is the standard system 
unit 
FI = X'00" if FORMAT is a statement 
label : 
= X'0O1° if FORMAT is an array name 
N = 0 for READ 
= 4 for WRITE 
UI = 4 is used for debug and for READ b, 
list, PRINT b, list and PUNCH b, list. 
SECOND LIST ITEM, FORMATTED 
The code produced is: 
L 15, =V(IBCOM#) 
BAL 14,8(15) | 
DC XL1'L" , LX0. 69 T".XLO. ot x? 
XLO.4"B',XL1.4'D! 
where: 
L = the size in bytes of the item 
T = 2 for a logical 1-byte item 
= 3 for a logical fullword item 
= 4 for a halfword integer item 
= 5 for a fullword integer item 
= 6 for a double-precision real item 
= 7 for a single-precision real item 
= 8 for a double-precision complex 
item . 
= 9 for a single-precision complex 
item 


A for a literal item (not currently 


compiler-generated) 
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Xy By e- and D are, the 
index, base, 


specify the item address. 


respectively, 


SECOND LIST ARRAY, FORMATTED 


“The code produced is: 


ee - 15,=VCIBCOM#) 
BAL 14, 12(15) | 
pC ~——s LX1* SPAN*, AL3 (ADDRESS) 
DC i =XUL1'L',XLO.4'T', XL2.4°ELEMENTS* 


SPAN (not used) 


ADDRESS = the beginning location of the 


array 
the size in bytes 
element 


of the array 


T = the values given for items 


the number of elements in the 
array 


ELEMENTS = 


FINAL LIST ENTRY, FORMATTED 


The code produced is: 


L 15, =V(TBCOM#) 
BAL 14,16(15) 


UNFORMATTED READ AND WRITE STATEMENTS 


The code 


produced for these statements 
is: “ , 3 
CNOP 0,4 
L 15, =VCIBCOM#) 
BAL ~14,N(15) | 
De XLO.4'PI',XLO.4*UI,AL3 (UNIT) 
DC ALY{EOFADD) - “optionai" 
DC ALY (ERRADD) "optional" 


where: 
PI, UI, UNIT, EOFADD and ERRADD have the 


same values as those given in the for- 
matted READ/WRITE definition. 


and displacement which 


UNFORMATTED _ 


The code produced is: 


- 


BAL 


DC 


'where: 


L = 


x, 


15, =V(BCOM#) 


14,2815) | 
XLI'L" , XLO. 4" 0", XLO.4"X", 
XLO. 4*B', XL1.4'D* 


the size in bytes of the item 


BRB 
index, 


and D are, 


the 
which 


respectively, 


base, and displacement 


specify the address of the item. 


SECOND LIST ARRAY, UNFORMATTED 


The code produced is: 


L 
BAL 
DC 
DC 


‘where 


the 
array, 


FINAL LIST ENTRY, 


SPAN, 
meanings 
formatted. 


15, =V(IBCOM#) 

14, 32(L) | 

XL1i* SPAN' , AL3 (ADDRESS) 
XL1'L*, AL3 (ELEMENTS) 


ADDRESS, L, and ELEMENTS have 
described in second list 


UNFORMATTED 


The code produced is: 


L 
BAL 


BACKSPACE, 


15, =V(IBCOM#) 
14, 36(15) 


REWIND, AND WRITE TAPEMARK 


The code produced is: 


~CNOP | 


L 
BAL 
DC 


where: 


XLL°FLAG', 


0,4 


15,=Vv(IBCOM#) 
14,N(15) 
AL3(UNIT) 


N 
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20 for READ 
24 for WRITE 


FLAG = 0 if unit is an integer | 
= any other bit pattern if unit is 
a variable. 
N = 4O for BACKSPACE 
= 44 for REWIND 


48 for write tapemark 


STOP AND PAUSE STATEMENTS 


The code produced for these statements 


is’: 
BAL 14,N(15). 
DC AL1 CLENGTH) 
pe C'TEXT* 


where: 


LENGTH is the number of bytes in the 
"TEXT" message 


TEXT is an alphameric number or message 


(TEXT = ‘'SOKOUOKOFO" if the STOP or 
PAUSE message is blank). 
N = 52 for STOP 
= 56 for PAUSE 
NAMELIST READ AND WRITE 
The code produced is:* 
CNOP 0 8 4 . “ 
L 15 ,=V (FWRNL#) 
BAL 14,0(15) ee 
Dc XLO. 4° PI*,XLO.4"*UI', AL3 (UNIT) 
DC AL4 (NAMELIST) 
DC AL4 (EOFADD) 
DC AL4 (ERRADD) 
where: 


PI, UI, and UNIT are as described for 
formatted READ and WRITE | 


* The "L 15,=V(FWRNL#)" shown is for 


write; the code produced for read is 
"Ty, 15,+V(FRDNL#) ." 


DEFINE FILE STATEMENT 

The form of the parameters specified in 
the statement is: 

ay (my, Fay Ua.9 Va) 9 0 oe 0 2 An (My, Ens Tn Vn) 


The following code is generated in the 
object module prologue: | 


LA R4, LIST 
L L, =V(DIOCS#) 
BALR Ra,L 
where: 
R, = 1 


L = 15 
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The following parameter list is also 
generated: 
* pe x a,‘ eAL3 (m, ). 
DC C°'f, ',AL3(r,) 
pc C'fyn*,AL3 (ry) 
DC X'80° , AL3 (vy) 


The third DC in the group is changed to 


DC X°01°,AL3 (vi) 
if the associated variable is a halfwora 


variable. In the last group, 
X'81",AL3(vn) in this case. 


it becomes 


FIND STATEMENT 


The code produced is: 


CNOP 0,4 ar 
L 15, =V(IBCOM#) 
BAL | 14,20(15) 
DC XLO.4'PI*, XLO.4* UI", AL3 (UNIT) © 
DC XL1i' VI‘ ,AL3(r) 
PI =C 
UL = 0 if the unit is a constant 
=1if the unit is a variable name 
VI = 00 if the record number is a 
constant | 
= 01 if the record number is a vari- 


able name 


Note that 20 is the IBCOM entry point 
for an unformatted READ. 


DIRECT ACCESS READ AND WRITE STATEMENTS 


The code produced for these statements 


is: 
CNOP 0.4 
L 15, =V(IBCOM # ) 
BAL | 14,N(15) 
DC XLO.4'PI*, XLO. 4*UI*AL3 (UNIT) 
DC AL1 (FI) , AL3 (FORMAT) 
DC AL1 (VI) , AL3 (r) | a 
DC -AL4&YCERRADD) “may only appear for 
READ" | : Se, 
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where: 
PI = 8 if ERR is not specified 
= A if ERR is’ specified, which is 
only possible for READ | 
UI = 0 if the unit is an integer 
constant 
= 1 if the unit is a variable name 
FI = 00 if the FORMAT is a statement 
label | : 
= 01 if the FORMAT is an array name 
VI = 00 if r (the record number) is a 
constant 
= 01 if r is a variable name 
The entry points which may appear (N) 
are 0, 4, 20, or 24 If 20 or 24 appears 
(indicating an unformatted operation), the 


second DC does not appear. 


FORMAT STATEMENTS 


FORMAT statements are stored after 1l1it- 
eral constants in the object module. 


The FORMAT specifications are recoded 
from their source module form so that’ each 
unit of information in the FORMAT statement 
occupies one byte of storage. Each integer 
which appears in the FORMAT statement 
(i1.e€., a Scale factor, field width, number 
of fractional digits, repetition count) is 
converted to a i-byte binary value. Decim- 
al points used to separate field width from 
the number of fractional digits in the 
source module FORMAT statement are dropped; 
all other characters appearing in the 
source module statement are represented by 
-1-byte hexadecimal codes. The following 
sections describe the encoding scheme which 
is used. 


FORMAT Beginning and Ending Parentheses 


The beginning and ending parentheses of 
the FORMAT statement are represented by the 
hexadecimal codes 02 and 22, respectively. 


Slashes 


The slashes appearing in the FORMAT 
statement are represented by the hexadec- 
imal code 1E. ie 
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Internal Parentheses. 


Parentheses used to 
FORMAT specifications within the FORMAT 
statement are represented by the codes 04 
and 1C for the left and right parenthesis, 
respectively. The code for the left paren- 
thesis is always . followed by the 1-byte 
value of the repetition count which pre- 
ceded the parenthesis in the source module 
statement. A value of one is inserted if 
no repetition count appeared. 


‘enclose groups of 


Repetition of Individual FORMAT 
Specifications 


Whenever the source module FORMAT state- 
ment contains a field specification of the 
form aliIw, aFw.d, aEw.d, aDw.d, or aAw, 
where the repetition count "a" is. present, 
the hexadecimal code 06 is produced to 
indicate the field repetition. This code 
is followed by the 1i-byte value of "a".. 


I,F,E, and D FORMAT Codes 


The I.and F FORMAT codes are represented 


by the hexadecimal values 10 and OA, re- 
spectively. The I code is followed by the 
1l-byte field width value; the F code is 


followed by two bytes, the first containing 
the field width (w) and the second contain- 
ing the number of fractional digits (d). 


E and D FORMAT codes are represented by 
the hexadecimal values OC and OE, respec- 
tively. This value is always followed by 
two bytes which represent the field width 
and the number of fractional digits, 
respectively. ie: on 


A FORMAT Code 


The A FORMAT code is represented by the 
hexadecimal value 14. This representation 
is always followed by the 1i-byte value of 
w, the number of characters of data. 


Literal Data 


The H FORMAT code and the quotation 
IMarks used to enclose literal data are both 
represented by the hexadecimal value 1A. 
This code is followed by the character 
count (w in the case of the H specifica- 


the number of characters enclosed in 
quotation marks in the case of the use of 
quotation marks). The literal data follows 
the character count. 


tion, 


X FORMAT Code 


The specification wX results.in the 
production of the hexadecimal code 18 for 
the X; this is followed by the 1-byte value 
of w. 


T FORMAT Code 


The T FORMAT code is represented by the 
value 12. The print position, w, is repre- 
sented by a 1-byte binary value. 


Scale Factor—-P 


The P scale factor in the source module 
FORMAT statement is represented by the 
hexadecimal value 08. This code is fol- 
lowed by the value of the scale factor, if 
it was positive. If the scale factor was 
negative, 128, is added to it before it is 
stored following the P representation. 


G FORMAT Code 


The G FORMAT Code is represented by the 
hexadecimal value 20. This value is always 
followed by two bytes which represent the 
field width and the number of significant 
digits, respectively. 


L FORMAT Code 


The L FORMAT code is represented by the 
hexadecimal value 16. This value is fol- 
lowed by the 1-byte field width. 


Z FORMAT Code 


The 2Z FORMAT code is represented by the 
hexadecimal value 24. This value is. fol- 
lowed by the 1-byte field width. 


DEBUG FACILITY 


The following paragraphs describe the 
code produced for the FORTRAN Debug Facili- 
ty statements. The generated instructions 
set up parameters and branch into the 
DEBUG# transfer table. The object-time 
routines which support the eae ae 
are “descrabed in imbpendes Be 


DEBUG STATEMENT 


When the source module includes a DEBUG 
statement, debug calls are generated before 
and after each sequence of calls to IBCOM 
for source module input/output statements. 
Additional debug calls are generated to 
Satisfy the options listed in the DEBUG 
statement. 


Beginning of Input/Output 


The following code 
first call to IBCOM for an he or 
operation: 


appears before the 
output 


L 15, =V (DEBUG#) 
CNOP 0,4 
BAL 14,44(0,15) 


End of Input/Output 


The following code appears after the 
last call to IBCOM for an input or output 
operation: | 


L 15,=V(DEBUG#) 
CNOP 0,4 
BAL 14,48(0,15) 


UNIT Option 


DEBUG statement does not 
include the UNIT option, the object-time 
debug routine automatically writes debug 
output on SYSOUT. When UNIT is specified, 
the following code is generated at the 
beginning of the ee module: 


When the 


L 15; =V (DEBUG#) 
CNOP 0, i . 

BAL 14, 12(0, 15). 
pc F* DSRN* 
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where DSRN is the data set reference number 
to be used for all subsequent debug output. 


‘TRACE Option 





specified in 
statement, the 


“When the TRACE option is 
the source module DEBUG 
FRACE call is inserted 


the code for every labeled statement. The 
code is: 

L 15 ,=V (DEBUG#) 

CNOP 0,4 

BAL 14, 00,15) 

‘DC F" LABEL" 

where LABEL is the label of the following 


statement. 


SUBTRACE Option 


When the SUBTRACE option is listed in 
the source DEBUG statement, two sequences 
of code are produced: one at the entry to 
the object module, and one prior to _ each 
RETURN. 


SUBTRACE ENTRY: 


the beginning of the object module. 
call is: 


The debug call is made at 
The 


L 15, =V (DEBUG#) 
CNOP 0,4 


At the time of the call, register 13 
contains the address of the SAVE AREA, the 
fifth word of which contains the address of 
the subprogram identification. Bytes 6 
through 11 of the subprogram identification 
are the subprogram name. 


SUBTRACE RETURN: 


RS ND OCEAN er in AD SEES ORES eRe 


immediately before the 
The call is: 


The debug call is made 
RETURN statement. 


L  15,=V(DEBUG#) 
CNOP 0,4 
BAL 14,8(0,15) 


INIT Option 


When the INIT option is given in the 
source module DEBUG statement, a debug call 
is produced for every assignment to a 
variable, or to a listed variable if a list 
is provided. The call immediately follows 
each assignment, including those which 
occur aS a result of a READ statement or a 
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immediately before 


subprogram call. Three calls may occur, 
depending on the type of variable (scalar 
or array) and the method of assignment. 


INIT SCALAR VARIABLE: The following code 
is produced after each assignment of value 


to a scalar variable covered by the INIT 
option: ) 
L —s«- 15, =V (DEBUG#) 
CNOP 0,4 | 
BAL 14,16(0,15) 
DC CL6"NAME',CL2* ° | 
DC XL1'L' , XL0.4°T*, XLO.4"X",XLO.4"B", 
| _ XL1. 4"D* 
where: 


NAME is the name of the variable which 
Was set. 

L is 
bytes. 


the length of the variable in 


T is the type code for the variable: 


2 for a logical i-byte item 

3 for a logical fullword item 

4 for a halfword integer item 

5 for a fullword integer item 

6 a double-precision real item 
7 a Single-precision real item 
8 


hou td web ue a 


for a double-precision complex 

item , 3 : 

= 9 for a single-precision complex 
item | 


A for a literal item (not currently 
compiler generated) 


X, B, and D are, respectively, the 
index, base, and displacement which loc- 
ate the item. 


INIT ARRAY ITEM: The following code is 
produced after each assignment of value to 
an array element: 


L 15,=-V (DEBUG#) 

CNOP 0,4 

BAL 14, 20(0,15) 

DC CL6*NAME',CL2* *¢ 

DC XL1i‘L', XLO.4°T', XLO.4°X',XLO.4'B', 
XL1.4°D* 

DC XL1'TAG*,AL3 (ADDRESS) — 2 

where: 


ADDRESS IS THE LOCATION OF THE FIRST 
array element if TAG = 0,.or ADDRESS is a 
pointer to the location of the first 
array element if TAG # 0. 


NAME, L, T, X, By, and D are as described 
for a scalar variable. | | 


INIT FULL ARRAY: The following code is 
produced when a full array is set by means 
of an input statement specifying the array 


name or when the array name appears as an 
argument to a subprogram: 


L  15,=V(DEBUG#) 

CNOP 0,4 | | 

BAL .. 14,24(0,15). 

DC CL6*NAME',CL2* * 

DC A(ADDRESS) . 
DC XLI'L', XLO.4°T", XL2.4'00000° 
DC A(CELEMENTS) 

where: 


ADDRESS is the first 


location of the 
array element. : 


ELEMENTS is a pointer to a word contain- 
ing the number of elements in the array. 


NAME, L, and fT are as described for a 
scalar variable. 


SUBCHK Option 


produced for each 
element when the 
list of 


call is. 
array 
without a 


A debug 
reference to an 
SUBCHK option appears 


array names; when the list is given, only 
references to the listed arrays produce 
debug calls. The debug call appears before 
the reference to the array, and is: 

L 15, =V(DEBUG#) 

CNOP 0,4 

BAL 14,28(0,15) 

DC CL6*NAME',CL2' § 

DC XL1‘ TAG! , AL3 (ADDRESS) 

DC AL4 (ELEMENTS) 

where: 


NAME is the array name. 


ADDRESS is the location of the first 
array element if TAG = 0, or ADDRESS is 
a pointer to the location of the first 
array element if TAG # 0. 


ELEMENTS is a pointer to a word contain- 
ing the number of elements in the array. 


AT STATEMENT 


The AT statement specifies the label, L, 
of a statement whose operation should be 


immediately preceded by the operation of 
the statements following the AT. As a 
result of the AT statement, an uncondi- 
tional branch to the location of the first 
statement following the AT is inserted 
before the first instruction generated for 
the statement labeled L. This branch pre- 
cedes any TRACE or SUBTRACE calls which may 
be written for statement L. 


The branch, like all branches performed 
in the object module, consists of a load 
from the branch table, followed by a_ BCR 
instruction. The branch table entry 
referred to is one constructed for a label 
which the compiler provides for the state- 
ment following the AT. 


TRACE ON STATEMENT 


The debug call produced for the TRACE ON 
statement appears at the location of the 
TRACE ON statement itself; the call is: 


L 15,=V (DEBUG#) 
CNOP 0,4 
BAL 14,32(0,15) 


TRACE OFF STATEMENT 


The debug call produced for the TRACE 
OFF statement appears at the location of 
the TRACE OFF statement itself; the call 
is: 


L 15, =V (DEBUG#) 
CNOP 0,4 © 
BAL 14, 36(0,15) 


DISPLAY STATEMENT 


The code for the DISPLAY statement is: 


L 15,=V (DEBUG#) 
CNOP 0,4 

BAL 14,40(0,15) 
DC A(NAMELIST) 
pe A (FWRNL#) 


where NAMELIST is the address of the NAME- 
LIST table generated from the DISPLAY list 
by the compiler. This code appears at the 
location of the DISPLAY statement itself. 
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The information provided in this appen- 
dix has its primary use in connection with 
a listing of the compiler. The label lists 
indicate the chart on which ae specific 
label can be found, or, for routines which 
are not flowcharted, they provide a 
description of the routine. | | 


PARSE LABEL LIST 


The labels enumerated in the following 
list are used in the flowcharts provided 
for the illustration of the major routines 
used in Parse. | 


Chart 
Label _iD__ Routine Name 
G0630 04 START COMPILER 
G0631 604 STATEMENT PROCESS 
G0837 BA PRINT AND READ SOURCE 
G0632 BB STA INIT 
G0635 BC LBL FIELD XLATE 
G0636 BD STA XLATE 
G0633 BE STA FINAL 
G0642 BF ACTIVE END STA XLATE 
GO844 BG PROCESS POLISH 


SUPPLEMENTARY PARSE LABEL LIST 


The routines described in this section 
are listed by G number labels which are 
presented in ascending order. These rou- 
tines are those used in the operation of 
Parse which are not shown in the section of 
flowcharts for the phase. 


Routine 
Label Name 


G0287 REASSIGN 
MEMORY 


Comments 

Obtains additional core 
storage, if possible, 
for a specific roll by 
pushing up the rolls 
that precede the re- 
questing roll in the 
block of storage. If 
this is not possible, 
it requests more core 
storage and, if none is 
available, enters PRESS 
MEMORY. 





Constructs the Polish 
notation for an assign- 
ment statement. 


G0637 ASSIGNMENT 


STA XLATE 


G0638 ARITH FUN Constructs the Polish 
DEF STA notation for an arith- 
XLATE metic function defini- 


tion statement. 


APPENDIX E: 


Label 
G0639 


G0640 


G0641 


G0643 


GO644 


G0645 


GO0646 


GO647 


GO0648 


GO0649 


Appendix E: Miscellaneous Reference Data 


Routine 
Name 


ASSIGNMENT 
VAR CHECK 


LITERAL 
TESL 


END STA 


_XLATE 


DO STA 
XLATE 


DO STA 
CONTROL 
XLATE 


DIMENSION 
STA XLATE 


GOTO STA 
XLATE 


CGOTO STA 


ASSIGNED 
GOTO STA 
XLATE 


ASSIGN STA 
XLATE | 


MISCELLANEOUS REFERENCE DATA 


Comments 

Checks the mode of as- 
Signment variable and 
the expression for con- 





flict in type  speci- 
fication. 

Determines the statement 
type and transfers to 


the indicated statement 
processing routine. 


Determines the nature of 
the statement and 
transfers to the appro- 
priate translation rou- 
tine for non-END; 
translates END. 


the Polish 
notation for the DO 
Statement. Locates the 
innermost DO statement 
in a nest of DO's, and 


Constructs 


sets up extended range 
checking. 

Interprets the loop 
control specification 


in the DO statement and 


constructs the Polish 
notation for these 
controls. 
Determines the validity 
of the specifications 
in the DIMENSION state- 
ment and constructs 
roll entries. 
Determines the type of 
GO TO statement, and 
constructs the Polish 
notation for a GO TO 
statement. 
Constructs the Polish 


notation for a Computed 
GO TO statement. 


Constructs the Polish 
notation for an As- 
Signed GO TO statement. 


Controls the construc- 
tions of the Polish 
notation for an ASSIGN 
statement. 
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Routine 


G0652 


G0653 


G0654 


G0655 


G0656_ 


G0657 


G0658 


G0659 


G0660 


G0661 


G0662 


G0663 


186 


LOGICAL IF 
STA XLATE 


IMPLICIT 


STA XLATE 


REGISTER 


RANGE 


REGISTER 
IMPLICIT 
CHAR 


SCAN FOR 
TYPE OT 
AND SIZE 


CONTINUE — 
STA XLATE 


CALL STA 
XLATE 


EXTERNAL 
STA XLATE 


FORMAT STA 
XLATE 


FORMAT STA 
END 


FORMAT 


LIST SCAN | 


FORMAT 
BASIC SCAN 


ISCAN TEST 


Constructs 


Checks 


Comments © 


Constructs: the Polish 
notation for an IF 
statement. 

Constructs the Polish 
notation for a logical 
IF statement. 

Checks the IMPLICIT 
statement and controls 
“the construction of the 
roll entries for the 
- statement. | 

Controls character en- 
tries for an IMPLICIT 

statement. 
Places the characters in 


the IMPLICIT statement 
on the IMPLICIT roll. 


Determines the mode and 
Size of the variables 
in specification state- 

' ments. | 


the Polish 
notation for a continue 
statement. 


Constructs the Polish 
notation for a CALL 
statement. 

Validates the use of the 


EXTERNAL statement and 
constructs roll en- 
tries. 


Validates the use of the 
FORMAT statement and 
controls the construc- 
tion... of the. Polish 
notation for the state- 
ment. 


Builds the FORMAT roll 


from the information 
Obtained from the proc- 
essing of the state- 
ment, 


the form of the 
literal content of the 
FORMAT statement. 
the 


Interprets FORMAT 


- List and constructs the 


Polish notation for the 
list. . 


Checks the size of the 
inteter constant or 
variable specified. 


G0668 


G0669 


G0670 


GO671 


GO0672 


G0673 


GO674 


G0675 


G0676 


G0677 


G0678 


‘Routine 


Name 


+ PACK H CODE 


PACK FORMAT | 


QUOTE — 


REWIND STA 


| XLATE 


BACKSPACE 
STA XLATE 


END FILE 
STA XLATE 


END FILE 
END 


BLOCK DATA 
STA XLATE 


STOP STA 
XLATE 


STOP CODE 
ENTRY 


PAUSE STA 
XLATE 


PAUSE STOP 
COMMON 


PAUSE STOP 
END | 


INIT 
LITERAL 
FOR STOP 
PAUSE 


NAMELIST 
STA XLATE 


COMMON STA 
XLATE © 


Controls the 


Constructs 


Comments 
Interprets the specifica- 
“tion for the H format 
code. 


Controls the registering 
of the contents of a 
literal quote specified 


in a FORMAT statement. 
Constructs the Polish 
notation for a REWIND 
Statement. 
Constructs the Polish 
notation © for a 


BACKSPACE statement. 


Polish 


Constructs the 
notation for an END 
FILE statement. 

Completes the Polish 
notation for input/ 
output control state- 
ments. 

Validates the use of the 


BLOCK DATA statement. 


up the Polish nota- 


Sets 
tion for the STOP 
statement. 

Sets up the Polish nota- 
tion for the STOP 
statement. 

Controls the interpreta- 
tion of the PAUSE 
Statement. 

Checks the form of the 


specified statement and 


controls the construc- 
tion of the Polish 
notation for the 


statement. 


Registers the constructed 
Polish notation on the 
POLISH roll. 


interpreta- 
tion of the message 
specified in the PAUSE 
statement. 


the 
entries for 
_NAMELIST statement. 


roll 
the 


Constructs the roll 
entries for the COMMON 
specification. 


Label 





G0679 
G0680 
G0681 
G0682 


G0683 


G0684 


G0685 


G0686 


G0687 


Routine 
Name | 
TEST ID 


ARRAY OR 


SCALAR 


DOUBLE PRE 
STA XLATE 


TYPE STA 


XLATE 


SCAN FOR 


SIZE 


TYPE 
SEARCH TEST 


AND REG 


ENTRY STA 
ALATE 


FUNCTION 
STA XLATE 
TYPED 


FUNCTION | 


STA XLATE 
FUNCTION 
ENTRY STA 


. XLATE 


G0688 


G0689 


G0690 


G0691 


XLATE — 


SUBROUTINE 
STA XLATE 
SUBROUTINE 
ENTRY STA 
XLATE | 


SUBPROGRAM 
END. 


SPROG NAME 


SCAN AND — 
REG 


Constructs 


Comments 

Validates the identifica- 
tion of the array or 
scalar used in COMMON. 


Checks the use of the 
DOUBLE PRECISION state- 
ment and controls the 
interpretation of the 
Statement. 


Interprets and constructs 


the roll entries for 
the type specification 
statement. 

Checks the size specifi- 
cation for the vari- 
ables in type state- 
ments. 


Checks the identification 
of the variables in the 


type specification 
in statement for pre- 
vious definition and 


defines if correct. 


| the Polish 
notation and roll 
entries for an ENTRY 
statement. 
These routines control 


the construction of the 
Polish notation for a 


FUNCTION subprogram by 
invoking the routines 
which interpret the 


contents of the state- 
ment. 


These routines control 
the construction of the 
Polish notation for a 
SUBROUTINE  subprogram 
by invoking the routine 


which interprets’ the 
contents of the state- 
ment. 

Common closing routine 
for ENTRY, FUNCTION, 
and SUBROUTINE state- 
ments. | 


Checks the identification 
of the SUBROUTINE or 
FUNCTION subprogram for 
conflicts in defini- 
tion. 


Label 
G0692 





G0693 


G0694 


G0695 


G0696. 


G0697 


G0698 


G0699 


G0700 


GO701 


G0702 


GO704 


G0O705 


Appendix E: Miscellaneous Reference Data 


Routine 
Name 
TEST ORDER 


DMY SEQ 
SCAN 


GLOBAL DMY 
SCAN AND 
TEST 


DEFINE 
FILE STA 
XLATE 


DATA STA 
XLATE — 


DATA CONST 
XLATE 


INIT DATA 


VAR GROUP 


DATA CONST 
ANALYSIS 


DATA VAR 


“TEST AND 
SIZE 


MOVE TO 
TEMP 


-POLISH ROLL 


READ STA 
XLATE 


READ WRITE 
STA XLATE 


END QT 
XLATE 


Constructs 


Interprets 


Comments 

Checks the order in ‘which 

- the SUBROUTINE or FUNC- 
TION statement appears 
‘in the source module. 


Checks the designation of 
the dummy variables for 
call by name or call by 
value. 


Checks the identification 
of the global dummy for 
a possible conflict in 
definition. 

the Polish 
notation for the DEFINE 
nae statement. 


Constructs Polish 


ene 
notation and roll 
entries for the DATA 
statement. 


Interprets the constants 


specified in the DATA 
statement. 

Determines and sets up 
the number of elements 

specified in the DATA 
Statement. 

Validates the specifica- 
tion of the constants 
used in the DATA 
statement. 


Checks the definition of 
the variables specified 
an the DATA statement 
for usage conflict, and 
registers the variables 


if no conflict is 
found. ae 
Moves information for 


DATA statement to TEMP 
“POLISH roll from WORK 
roll. 


Checks the type of READ 
statement. and controls 
the interpretation of 
the statement. 


the elements 


of the READ or WRITE 
statement and con- 
structs the Polish 
notation for the > 
statement. — 

Constructs. the Polish 


notation for the END= 
quote. . 
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Label 
G0706 


G0707 


G0708 


G0709 


G0710 


G0711 


G0712 


G0713 


GO714 


GO715 


G0716 


G0717 


G0718 


G0719 


G0720 
GO721 
G0722 


188 


SPECIFI- 


Routine 
Name 
ERR OT 
XLATE 


REGISTER 


IBCOM 


REGISTER 
ERROR LINK 


READ B STA 
XLATE 
PUNCH 
XLATE 
PRINT 
XLATE 


STA 


STA 


F2 IO 
XLATE 


OL LIST 


XLATE 


FIND STA 
ALATE 


RETURN STA 
XLATE 


EQUIVALENCE 
STA XLATE 


DIMENSION 
SEQ 
XLATE 


TEMP MAKER 


Constructs 


Constructs 


Comments 

Constructs the Polish 
notation for the ERR= 
quote in the READ. 
Statement. 


Inserts a roll entry for 


a call to IBCOM. 


Sets the roll entry for 
the generation of error 
linkage. : 

Initialize for the con- 


struction of the Polish 


notation for the in- 
dicated statement. 
Constructs the Polish 
notation for the in- 
dicated input/output 
statement and  inter- 
prets FORMAT designa- 


tions associated with 
the input/output state- 
ment. 


Interprets and constructs 
the Polish notation for 
the list associated 
with the indicated 
input/output statement. 


the Polish 
notation for the FIND 
statement. 


the Polish 
notation for the RETURN 
statement. 


Constructs the roll en- 
tries for the EQUIVA- 
LENCE statement 

Constructs the roll en- 
tries for the dimen- 
sions designated for an 
arraye 

Increments pointer for 
temporary ‘locations 
used for dummy dimen- 

_ $§10ns. 

Set flags and return. 


CATION 
STA EXIT 
JUMP END 
ACTIVE END 
HEAD STA 
EXIT 


Label 
G0723 





GO724 


GO725 
G0726 


G0727 


G0728 
G0729 


G0730 


G0731 
G0732 
G0733. 


GO734 


G0735, 


G0736 


GO737 


G0738 


Routine 


Name Comments 
STA XLATE Replaces the Polish nota- 
EXIT tion for a statement 
| 7 with error linkage if 
indicated. 
ILLEGAL These routines set up 
STA FAIL diagnostic messages for 
ORDER FAIL the type of error indi- 
ALLOCATION cated by the routine 
FAIL name. "es 
ILLEGAL — 
NUMBER 
FAIL | 
SUBSCRIPT 
FAIL 
ID CONFLICT 
FAIL 
TYPE 
CONFLICT 
FAIL 
VAR SCAN Checks definition of 
variables in the source 
module; defines as 
scalar if undefined. 
ARRAY SCAN Constructs the Polish 
| notation and roll 
entries for array re- 
ferences. 


SUBSCRIPT Determines the nature of 

ANALYSIS an array reference for 

7 purposes of subscript 
optimization. | 

SCRIPT ITEM Determines whether a 


ANALYSIS Subscript expression is 
a linear function of a 

DO variable, and _ sets 

ANSWER BOX. 

NOTE LINEAR Registers a linear sub- 


SCRIPT script expression on 
SCRIPT roll. 

RESTORE Builds the Polish nota- 

NONLINEAR tion for a nonlinear 

SCRIPT subscript expression on 
Polish roll. | 

MOVE ON Moves one group from WORK 

EXIT FALSE roll to POLISH. roll, 
sets ANSWER BOX to 
false, and returns. 

SCRIPT | Determines whether a 

SCALAR | scalar used ina sub- 

ANALYSIS script is a DO variable 


and sets ANSWER BOX. 





GO740 


GO741 


GO744 
GO745 


GO746 


GO747 


G0748 


GO749 


G0750 


G0O751 


Routine 


Name 


SCRIPT 
CONST 
ANALYSIS 


DEFINE 
SCRIPT 
GROUP 


REGISTER 
SCRIPT 
GROUP 


TERM SCAN 


ELEMENT OP 
SEQ SCAN 


UNAPPENDED 
SPROG ARG 


FUNCTION 
ELEMENT 


CONST 
ELEMENT 


SCALAR 
ELEMENT 


ELEMENT | 
MOVE 


OP SCAN. 
CHECK 
DEPOSIT 


Comments 23 ake 

Separates constant used 
in a subscript expres- 
sion as either induc- 
tion variable coeffi- 
' cient or additive 
constant. 

Creates new group con- 
taining zeros on the 
SCRIPT roll. , 


Defines a subscript ex- 
pression on the SCRIPT 
roll by setting the 
traits, displacement, 
and array reference. 


Initializes the construc- 
tion of Polish notation 


for a new term in an 
expression. 

Constructs the Polish 
notation for a term in 
an arithmetic ex- 
pression. 

Exits from expression 
scanning on finding an 
array or subprogram 
name not followed by a 
left parenthesis; en- 
sures reference is 
correct. 

Determines whether a 
function call in an 
expression is to a 


statement function, a 
library function, or a 
global subprogram; 
calls SPROG ARG SEQ 
SCAN to scan arguments. 


Scanning expression, if 
compiler finds non- 
letter, non-left paren- 
thesis, it goes here; 
determines if really a 
constant. , ess 

Ensures that scalar is 
registered. 

Moves pointer to POLISH 


roll for any element in 
expression. 


Determines the operation 
indicated in an expres- 
sion, sets up the 
appropriate driver, and 
falls through to OP 
CHECK AND DEPOSIT. 


Label 
G0752 





G0753 


G0754 


G0755 


G0756 


GO757 


G0758 


G0759 


G0760 


G0761 


G0762 


G0763 


Appendix E: Miscellaneous Reference Data 


Routine 
Name 

OP CHECK 
AND DEPOSIT 


GEN AND REG 
EXPON SPROG 


REG COMPLEX 
SPROG 


A MODE PICK 
AND CHECK 


MODE PICK 


B MODE PICK 
AND CHECK 


MODE CHECK 


NUMERIC EXP 
CHECK © 


NUMERIC EXP 


‘CHECK AND 


PRUNE 


SPROG ARG 


SEQ SCAN 


ARG TEST 
AND PRUNE 


TEST FOR 
ALTERABLE 


Comments 

The current and previous 
Operations are set up 
according to a prece- 


dence, and a Polish 
notation is con- 
- structed. 


Determines the nature of 
an exponentiation, and 
records the required 

- Subprogram on the 
GLOBAL SPROG roll. 


Determines the nature of 
an operation involving 
complex variables” and 
registers the appropri- 
ate routine on the 
GLOBAL SPROG roll. 


Checks and sets mode of 
operator by inspecting 


the first of a pair of 
operands. 
Actually places mode 


field in driver. 


With second operand and 
driver set by A MODE 
PICK AND CHECK, resets 
driver mode; if complex 


raised to a power, 
ensures power is 
integer. 


Determines whether modes 
of operands are valid 
in relational and log- 
ical operations. 


Determines that an opera- 


tion or an expression 
is numeric, as opposed 
- to logical, for 
compatibility. | 
Uses NUMERIC EXP CHECK, 
then prunes bottom of 
POLISH roll. 
Constructs the Polish 


notation for the argu- 
ment list designated 
for a subprogram. 


Tests the number and type 
of arguments to library 
routine; moves label 


arguments to CALL LBL 
roll. 

Determines whether a 
scalar has been passed 
as a subprogram 
argument. 
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Label 
GO764 





G0765 
G0766 
G0767 
G0768 
G0769 


GO0770 


GO771 


GO772 


G0773 
GO774 
G0775 
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Routine 
Name 


ID SCAN 
NO USE 


ID 


NO USE 


ID SCAN — 


ID 


REGISTER 
SCALAR 


REGISTER 
GLOBAL 
SPROG 
REGISTER 
RUNTIME GS 


REGISTER 
GLOBAL 
SPROG. ROLL 


MODE SET 


CONST SCAN 


REGISTER 
COMPLEX 
CONST 


REGISTER 
FL CONST 


REGISTER 
WORK CONST 


CLASSIFY 


CLASSIFY 


~ Comments 








Sets a flag tested in 
MODE SET so that low- 
order bits of roll are 
not altered when vari- 
able is defined; state- 
ment does not use 
variable. 


Goes to ID CLASSIFY after 
setting flag to indi- 
cate variable has not 
been used and mode 
should not be set. | 


Compiles name from source 
in central area and 
goes to ID CLASSIFY. 


Determines the classifi- 
cation of a name 
scalar, array, subpro- 
gram, etc., and leaves 
pointer in WO; exits 
false if name not 
defined. 


Records new 
SCALAR roll. 


name on 


Determines lf name is 
already 
program; if 

cords it on 


SPROG roll. 


not re- 
GLOBAL 


Records name on GLOBAL 


SPROG roll. 


Determines the mode of 
the indicated variable, 
logical, integer, com- 
plex, etc., and inserts 
code in pointer in WO. 


Controls the translation 


and recording of 
constants. 

Records complex and 
double-precision com- 


plex constants not pre- 


viously defined | on 
appropriate roll. 
Records Single- . and 
double-precision real 
constants on appropri- 


ate roll when not pre- 
viously defined. 


Records constant in WO as 


new integer constant if 
not defined. 


a defined sub- » 


Label 
G0776 


GO777 


G0778 
G0779 


G0780 


G0782 


G0783 


GO784 
G0785 


G0786 
G0O787 


GO788 
G0789 
G0790 


G0791 


Routine 
Name__ 
REGISTER 
FX CONST 





CONST 
ANALYSIS 


CPLX CONST 


ANALYSIS | 


CHECK CONST 


SIGN 


SCAN CONST 
SIGN 


HEXADECIMAL 


CONST SCAN 


REGISTER 
HEX CONST 


LBL ARG 
SCAN 


SCAN 
HOLLERITH 
ARGUMENT 


LITERAL 
CONST SCAN 


LITERAL 
CONST SCAN. 
PAUSE 


REGISTER: 


LITERAL 
CONST 


INIT PACK 
LITERAL 


PACK 
LITERAL 
COMPLETE 


PACK 
LITERAL 


- CONST 


G0792 


LOOK FOR 
ONE QUOTE 


Converts a 


Comments 


Records new integer -con- 
stant if not previosuly 
defined. . 


Determines the type of a 
constant and jumps to 
proper conversion rou- 

, tine. 


Converts a complex 
‘constant. 

Checks for unary minus 
Sign On constant. 

Scans first character of 
a constant for a_ sign; 


sets up driver if unar 
minus. a 


Converts a hexadecimal 
constant. 
Records new c onstant on 


HEX CONST roll if not ~— 


previously defined. 


Checks validity of a 
label argument to a 
subprogram and records 
label as jump target. 


Scans an IBM card code 
argument to a sub- 
program, and records as 


literal constant. 


Distinguishes literal 
constants from logical; 
converts and records. 


Packs a literal constant. 


Records literal constant 
on LITERAL CONST roll 
if not previously de- 
fined. 


for conver- 


Initializes 
sion of a literal 
constant. 

Moves literal constant 


onto TEMP LITERAL roll 
if packed. 


literal con- 


stant from source 
input. 
Checks for a quotation 


mark not followed by a 
second quotation mark; 
sets ANSWER BOX. 


Label 
G0793 





GO794 
G0795 


G0796 


GO797 


GO0798 


G0799 


G0800 


GO801 


G0802 


G0803 


GO804 


G0805 


LOGICAL 
CONST SCAN 


NEXT ZERO | 
LEVEL COMMA. 


Routine 
Name 
PACK 
FROM 
PACK 
FROM 


TWO 
WORK 
ONE 
WORK. 


PACK 


CRRNT 
CHAR 7 


PACK CHAR 


SYMBOL SCAN 


JUMP LBL 
SCAN AND 
MOVE 


FORMAT 
SCAN 


FORMAT LBL 


TEST 


LBL SCAN | 


REGISTER 
LBL 


NEXT ZERO 
COMMA 
OR R PAREN 


NEXT ZERO 
COMMA 
OR CS 


- Scans 


Scans 
Scans 


LBL 


Scans 


Scans 


Comments 

Packs low-order byte from 
-last one or two groups 
on WORK roll onto 
LITERAL TEMP roll. 


Packs current character 
onto LITERAL TEMP roll. 


General routine to actu- 
ally place a byte in a 
word which, when com- 
plete, is placed on the 
LITERAL TEMP roll. 


Assembles identifier from 
-input in SYMBOL 1, 2, 
and 3, and returns. 


logical constants 
from source input and 
records as integers. 


label, defines it 

as jump target and 
pointer on POLISH roll. 
Locates transfers from 
innermost DO loops that 
are possible extended 
range candidates. Also 
checks for possible 
re-entry points into 
-innermost DO loops, and 
tags such points. 


a label, 

it if necessary, 
ensures that it isa 
FORMAT label if already 
defined. 


registers 


Tests that pointer in wO 
indicates format label 

-. (W¥Se. _ jump target 
label); if not, there 
is an errors 


referenced label, 
defines on LBL roll if 
produces er- 
leaves 


- required, 
ror messages, 
pointer in WO. 


Records label on LBL roll 
if not 
defined; leaves pointer 
in WO. 


source input to 
next — comma not in 
parentheses or to close 


off apair of paren- 
theses. 

Scans source input until 
next comma or slash 


not in parentheses. 
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and. 


previously 


Label 


G0806 


Routine 
Name_ 
NEXT | 
CLOSING 


SURGE: eS. 


GO807 


Go808 


G0809 


G0810 


GO081i1 


G0812 


G0813 


G0814 


INTEGER | 


NEXT ZERO | 
COMMA SLASH 


OR CRP 


NEXT ZERO 


R PAREN. 


COMMA TEST 


SCAN AND 
MOVE: 


INTEGER 


CONST SCAN — 


AND MOVE 


INTEGER VAR 
_ SCAN AND. 


MOVE 


INTEGER 
TEST 


SIGNED 


_ INTEGER: 


G0815 


G0816 


GO0817 


SCAN 


INTEGER 
SCAN 


DP CONST 
MAKER 


DP ADJUST 
CONST 


Scans. source Sanuk: 


Scans. 


Determines 


- Scans 


Comments 

until 
second of the next pair 
of slashes not enclosed 
in parentheses. 


source input until 
next comma or slash not 
enclosed in parentheses 


or a closing) right 
parenthesis. 7 
Scans source input until 


next zero level right 
parenthesis. 


Advances scan arrow and 
returns ANSWER BOX true 
if next active charac- 
ter is a comma; if it 
is a letter, sets up 
missing comma message, 
does not advance, and 

returns true; if it is 
neither, returns false. 


Scans ipecses constant Or 


variable, defines on 
appropriate roll, puts 
pointer on POLISH roll. 


Scans integer constant; 
defines on FX CONST 
roll if required; puts 


Boece on POLISH roll. 


Scans iueeser er 
-defines.on roll if re- 
quired; puts pointer on 
POLISH roll. 


whether a 
pointed to variable or 
constant is an integer. 


Scans and converts signed 


integer constant; de- 
fines on FX CONST roll 
if required. 


converts an 
integer con- 
register on 
roll if 


and 
unsigned 
stant and 
FX CONST 
hs oes esa 


Builds. a. acunicechectsion 


constant from 


source 


Used in converting float- 


ing point numbers; 
adjusts for E or D 
field. 
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Label 
G0818 


G0820 


GO821 


G0823 


GO824 


G0825 


G0826 


G0827 


G0829 


G0832 


G0833 


G0834 


G0835 


G0836 


G0838 
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Routine 
Name 
CONVERT TO 
FLOAT 


CLEAR TWO 
AND EXIT 
TRUE | 
CLEAR ONE 
AND EXIT 
TRUE 


EXIT TRUE 
EXIT TRUE 
ML 


CLEAR ONE 
AND EXIT 
FALSE 


EXIT FALSE 


CLEAR TWO 
AND EXIT 
CLEAR ONE 
AND EXIT 


EXIT 
EXIT ML 


Comments 
‘Converts integer constant 


to floating point. 


Remove the specified num- 


from the 
set ANSWER 
and re- 


ber of groups 
WORK roll, 
BOX to true, 
turn. 


Sets 
and returns. 


Removes one group from 
WORK roll, sets ANSWER 
BOX to true, and 
returns. 

Sets ANSWER BOX to false 
and returns. 

Remove specified number 
of groups from WORK 


roll and return. 


Returns. 


EXIT ON ROLL 


SYNTAX FAIL Records syntax error mes- 


ML 
ILLEGAL 


SYNTAX FAIL 
SYNTAX FAIL 


FATL 


STATUS 
CONTROL 


DIGIT CONV 
SCAN 


CONV ONE 
DIGIT 


PRINT A 
CARD 


Sage and goes to FAIL. 


If JPE flag off, restores 
WORK and EXIT roll 
addresses from last 
status control, house- 
keeps Polish notation 
through STA XLATE EXIT, 
and returns with ANSWER 
BOX set to false; if 
the flag 1s on, values 
are restored for JPE 
and exit is to the 
location following last 
JPE POP instruction. 


Saves addresses of WORK 
and EXIT roll bottoms. 


from 
and 


Converts integer 
decimal to binary, 
leaves in DATA area. 


Converts decimal digit to 


binary, and leaves in 
DATA area. 

Controls printing of 
source listing and 


error messages. 


ANSWER BOX to true 


GO0840 


GO841 


GO842 


GO843 


GO845 


GO846 


GO847 


GO848 


GO849 


G0850 


GO0851 


G1034 


G1035 


G1037 


Routine 
Name 


TEST FOR 


ERROR 
MESSAGE 


PRINT 
MESSAGES 


TEST AND 
ZERO PRINT 
BUFFER 


INIT READ 
A CARD 


READ A 
CARD 


SKIP TO 
NEXT CHAR 
MASK 


REENTRY 


Determines whether 
messages are to be 
printed; if so, prints 
dollar sign markers. 


error 


Prints line. 
messages. 


of error 


Clears output for 


printer. 


area 


Scans source 
assignment 
(flag 1) or Logical IF 
with assignment for 
consequence (flag 2). 


input for 
Statement 


Puts card onto SOURCE 
roll and re-enters INIT 
READ A CARD at proper 
point. 


Scans input to next 
source character not of 
a Class of characters 
specified as input to 
routine, 


Entry point used to con- 


SKIP TO NEXT tinue masking operation 


CHAR MASK 


NEXT CHAR 
NEAT 
CHARACTER 
NEAT CHAR 
ML 


on a new card. 


arrow to 
character. 


Advance scan 
next active 


NEXT CHARACTER 


MI 


BCD TO 
EBCDIC 


DIGIT CONV 
INITIAL 


MAPT1 TO 
TMP1 


BUILD LOOP 
DATA GROUP 


DATA TERM 
ANALYSIS © 


CONST 
REGISTER 
EXIT 


Converts CRRNT CHAR ‘from 
BCD to EBCDIC. 


Initializes for the con- 
version Of a number 
from decimal to binary 
(resets digit ‘counts, 
clears DATA area, etc.) 


Converts value in format 
of TOP or BOTTOM, a 
virtual address, toa 
true address. 

Constructs group on LOOP 
DATA roll. 

Checks for and sets’ flag 


if it finds unary minus 
in DATA statement. 


Common exit routine for 
constant recording rou- 
tines; leaves pointer 
to constant in WO. 


Routine 
Label Name Comments 
G1038 T AND F Scans for logical con- 
CONST SCAN stants T and F in DATA 
Statements. 
G1039 EXIT ANSWER General routine used by 
all EXITs which set 
ANSWER BOX to store 
value in ANSWER BOX and 
return. 
G1040 DEBUG STA Translates DEBUG state- 
XLATE ment. 
Gi041 AT STA Constructs AT roll entry 
XLATE from AT statement. 
Gi042 TRACE STA Constructs Polish nota- 
XLATE tion for TRACE state- 
mente 
Gi043 DISPLAY STA Constructs Polish nota- 
XLATE tion and roli entries 
for DISPLAY statement. 
Gi044 TEYSKP Cails IEYFORT to skip Lo 
_ SKIP TO end of present source 
NEXT module when roll stor- 
PROGRAM age is exhausted. 
G1070 PRESS Called by REASSIGN MEMORY 
MEMORY to obtain additional 
core stcrage from roll 


space that is no Longer 


in use. If it obtains 
32 or more bytes, exit 
is back to REASSIGN 
MEMORY. Otherwise, 
exit is to IEYNOCR in 
ITEYFORT to print NO 


CORE AVATLABLE message. 


ALLOCATE LABEL LIST 


ce Se SE ST RE SEY SCR SAE SERED “cat A A SE 


The labels enumerated in the following 
list are used in the flowcharts provided 
for the illustration of the major routines 
used by Allocate. 








Chart 
Label ID _ Routine Name 
G0359 05 START ALLOCATION 
GO451 CA ALPHA LBL AND L SPROGS 
CA ALPHA SCALAR ARRAY AND 
SPROG | 
G0362 CB PREP EOUIV AND PRINT 
ERRORS | 
G0361 CC BLOCK DATA PROG ALLOCATION 
G0365 CD PREP DMY DIM AND PRINT 
ERRORS | 
G0371 CE PROCESS DO LOOPS . 
. G0372 CF PROCESS LBL AND LOCAL 
SPROGS . 
G0374 CG BUILD PROGRAM ESD 


Label 


G0376 
G0377 


G0381 


G0437 


G0397 


GO401- 


GO402 


GO442 
GO443 
GO444 
GO44S 
GO441 
GO403 
GO405 
GO438 
GO0545 


CL 


CM 
CN 
CO 


CP 
CQ 
CR 
CS 
CT 
CU 
CV 
CW 
CX 


Routine _Name 
ENTRY NAME ~ ALLOCATION 


COMMON ALLOCATION AND 
OUTPUT 

EQUIV ALLOCATION PRINT 
ERRORS 

BASE AND BRANCH TABLE 
ALLOC 


SCALAR ALLOCATE 
ARRAY ALLOCATE) 

PASS 1 GLOBAL 
ALLOCATE 

SPROG ARG ALLOCATION 
PREP NAMELIST 
LITERAL CONST ALLOCATION 
FORMAT ALLOCATION 

EQUIV MAP 

GLOBAL SPROG ALLOCATE 
BUILD NAMELIST TABLE 
BUILD ADDITIONAL BASES 
DEBUG ALLOCATE 


SPROG 


SUPPLEMENTARY ALLOCATE LABEL LIST 


The 
are listed by G number 
presented 
tines are those used in 


routines 


in 


ascending order. 


described in this section 
labels which are 
These rou- 
of 


the operation 


Allocate which are not shown in the section 
of flowcharts for the phase. 


Label 
G0363 





G0364 


G0366 


G0367 


G0368 


Routine 
Name 


PREPROCESS 


EQUIV 


REGISTER 
ERRORS 
SYMBOL 


CHECK DMY 
DIMENSION 


GLOBAL DMY 
TEST 


DMY DIM 
TEST AND 
REG 
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Comments 

Checks the data contained 
on the EQUIVALENCE roll 
and computes the 
reguired addresses. 


Checks the ERROR SYMBOL 
roll for . the presence 
of the error just 
detected. All dupli- 


cate entries are pruned 
from the roli and ail 


new entries placed = on 
the roll. | 
The dummy dimension is 


checked for definition 
as a giobali dummy vari- 


able, or in COMMON. 

Sets a pointer to the 
dummy array on the 
ENTRY roll; a pointer 
to the ARRAY roll is 
also set for each dummy 
array. | 


The DMY DIMENSION roll is 
rebuilt with the infor- 
mation obtained from 
the COMMON DATA TEMP, 
TEMP, and GLOBAL DMY 
rolls. 
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Label 
G0 369 





G0370 


G0373 


G0375 


Routine 


Name ___ 


DMY DIM 
TEST | 


DMY 


CLASSIFY 


REGISTER 
BRANCH 


TABLE 


PUNCH © 
REMAINING 


ESD BUFFER 


G0378 


G0379 


PUNCH 


‘REMAINING 


CARD 
SEARCH 
ROLL BY 
MAGNITUDE 


PRINT 


COMMON 


~ ERRORS 


G0 380 


G0382 


G0383 


GO0384 


60385 
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PRINT 
COMMON 
HEADING 


EQUIV 
ALLOCATION 


FLP AND 
PROCESS 
EQUIV 
PROCESS 
EQUIV 


INTEGRATE 


Places 


Comments | 
The dimension 


data is 

checked for having been 
previously defined on 
the NAMELIST ITEMS and 
_ COMMON DATA rolls. 


Classifies a dummy, 
fining it as scalar if 
undefined; if it is an 


array sets call by name 


tag. 

work 
zero | on 
TABLE roll. 


containing 
the BRANCH 


Punches a card. 


The GENERAL ALLOCATION 
roll is. searched to 
check if the largest 
equivalenced area has 
been allocated. | 

Sets up for, and prints, 
COMMON allocation 
rors. | 


COMMON storage map head- 
ing is printed. 


Builds the | = EQUIV 
ALLOCATION roll from 
the boundary calcu- 
lated; records the 
absolute address as- 
signed to “the vari- 
ables. os 

Thverts the contents of 


the EQUIVALENCE roll. 


Constructs ~ “Cor 
EQUIVALENCE sets on “the 


the GENERAL ALLOCATION 
roll using information 
on: the EQUIVALENCE 
rolls ee. 
Assigns locations rela- 


tive to the first vari- 
able listed for all 
Variables: in an EQUIVA- 
LENCE set if not al- 
ready allocated. 


er= 


Label 
G0386 


G0387 


G0388 


Routine 


Name __ | 
TEST FOR 
BOUNDARY 





CSECT EQUIV 


ALLOCATION 


PRINT CSECT 


EQUIV MAP 


G0389 


G0394 


G0392 


G0393 


G0394 


G0395 


BUILD 
COMMON 
ALL ROLL 


SEARCH FOR 
LARGE 
ARRAYS 


BUILD A 
NEW CSECT 


PRINT A 
ARRAY 


CSECT MAP 


CONV ‘TEMP3 
TO HEX 


GLOBAL DMY 


- ALLOCATE 


G03 96 


TEST FOR 


CALL. BY 


NAME 


Converts 


Comments 
Sets and =~ checks’ the 
smallest equivalenced 


area and bagueee bound- 
ary required for allo- 
- eation of the variables. 
indicated; resets pro- 
gram break according to 
requirement.. ae ah, 


Controls the allocation 
of EQUIVALENCE sets 
equal to or greater 
than 3K bytes intoa 

new control section. 


Sets up and formats’ the 
printing of the storage 

map .for EQUIVALENCE 
sets equal to or great- 
er than 3K bytes. 


Calculates the base and 
displacement for EQUIV- 
ALENCE sets equal to or 


greater than 3K bytes 
and registers these 
sets on 


3 the COMMON 
ALLOCATION roll. | 


Determines. the size of 
arrays not defined as 
EQUIVALENCE or COMMON. 


Obtains the arrays that 
are equal to or guar ee 
ree 3K bytes. | 


Sets the program name and 
obtains a new control 
section for the alloca- 
tion of arrays and 
EOUIVEMENCY sets. 


sets the > anformation for 
the printing of the map 
for arrays equal to or 
greater than 3K bytes. 


the contents of 
the temporary so a 
to hexadecimal. 


PSSTdus storage for glob- 
al dummy variables; 
expands the contents of 
the BASE TABLE roll, as 
required. 


Determines whether the 
indicated variable was 
called by name or 


called by value. 


Label 


G0398 


G0399 


GO400 


GO404 


GO406 


GO407 


GO408 


GO409 


Routine 
Name ___ 


ALLOCATE 
SCALAR 
BOUNDARY 


ALLOCATE 
SCALAR 


CED SEARCH 


ALLOCATE 
SPROG 


ADJUST AND 


OUTPUT NAME 


PUNCH NAME 
LIST AND 
FIELD 


OUTPUT MODE 


WORD 


ADVANCE 


PROG BREAK 


- AND PUNCH 


GO410 


PUNCH 


. LITERAL 


GO411 


GO412 


MOVE TO 
PUNCH BUFF 


PUNCH TXT 


CARD 


Sets the 


Sets the 


Moves the 


Comments 
Sets up allocation of 
scalars according to 
the size of the 


variable. 


Formats the Aliesarion of 
Scalars not defined as 
global dummies in COM- 
MON or in EQUIVALENCE 

' sets. Initializes for 
the printing of the 
scalar map: and 
lates the base 
displacement. 


and 


Determines if the vari- 
able is defined asa 
global dummy, in COMMON 
or -in 
set. 
the 


If it is, it sets 
eee BOX = true. 


Sets the ‘type of the ESD 
cards that are to be 
punched and initializes 
for the allocation of 
eUPPrograr addresses. 


Sets: the. ora for the 
punching of. the 
NAMELIST name, and 


adjusts for storage. 


format for the 
punching of the address 
allocated for. each 
NAMELIST according to 
paeeecae eegureed: 


format for the 
punching of the mode of 
the NAMELIST variable. 
item PRO- 


Increases the 


GRAM BREAK according to. 


the storage allocation 
required for _ the 
variables indicated. 

number 


Obtains the 


“of 
bytes and the address 
of the roll indicated 


for punching of literal 
constants. 


indicated data 
to. the pPEREOPELSES 
pune buffer. | 


Punches the indicated 
TXT card after setting 
up the address. and 
buffer information. 


calcu-_ 


an EQUIVALENCE ~ 


Label 


G0413 


GO414 
GO415 


G0416 


GO417 


G0418 


G0420 
SCALAR OR 
ARRAY MAP 


GO421 


GO422 


GO0423 


GO424 
G0425 
G0426 


G0431 


GO432 


G0433 


GO434 


G0435 


Appendix E: 


Routine 
Name 
PUNCH 
REMAINING 
TXT CARD 


PUNCH ESD 
PUNCH LD 
ESD 


PRINT ERROR 


LBL ROLL 


CONVERT LBL 


PRINT ERROR 


SYMBOL 


PRINT 


PRINT INIT 
MAP 

TEST AND 
PRINT MAP 


PRINT. MAP) 
HEADING 


PRINT | 
FORMAT: MAP 
PRINT 
HEADING 
MESSAGE 


PRINT MAP 
PRINT MAP 
ML 


PRINT 
REMAINING 
BUFFER 


PRINT ERROR 


REMATNING 
BUFFER 


ALLOCATE 
FULL WORD 
MEMORY 


ALLOCATE. 


MEMORY 
ALLOCATE 


BY TYPE 


Prints 


uatocats 


Miscellaneous Reference Data 


Comments 

Punches the... remaining 
card indicated, after 
the area from which 


data was being taken 
has pact punched. 


punches ae indicated ESD 
cards for the program 
area indicated. 


Prints the contents of 
this roll. which con- 
tains. the errors noted 


during operation. 


Converts the label of an 
erroneous. statement to 
BCD for printing. 


contents of 
roll. 


Prints. the 
the ERROR paca 


Prints the indicated map. 


Checks the existence of 
processing of a storage | 
MAaPe Initiates. the 
printing. of the |. indi- 
cated map if one. is not - 
already being printed. 


Prints .the heading of the 


indicated -storage map 
for — the variables 
designated. 
Prints map of FORMAT 
statements. * 4 ass 
Prints the heading in- 
dicated - for. 


error «:. 
messages. : 


the variables as- 
-. sociated with the stor- 
age map heading’ from 
the rolls indicated. | 


Print the remaining in- 

formation in. the print 
buffer after the. data 
has been obtained from 
the indicated storage 
area. 

Initializes for the 
allocation of a full 


word of storage. 


storage accord- 
ing to the type of the 
variable _ indicated; 
fullword, halfword, or 


byte. 
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Label 
GO436 


GO0439 


GO440 


GO446 


GO4uT 


GO4U4LS8 


GO449 


GO450 


GO455 


GO4U56 


GO457 


GO458 
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Routine 
Name _ 
CALCULATE 
SIZE AND 
BOUNDARY 


CALCULATE 
BASE AND 
DISP 


REGISTER 
BASE 


BUILD 
FORMATS 


INCREMENT 
PNTR 


ID CLASSIFY 


REGISTER 
SCALAR 


MODE SET 


CLEAR THREE 
AND EAIT 
TRUE 


CLEAR TWO 
AND EXIT 
TRUE 


CLEAR ONE 
AND EXIT 
TRUE 


EXIT TRUE 


EXIT TRUE 


ML 


Constructs a 


Comments Ss 

Determines the size and 
the boundary required 
for the variable indi- 
cated. 


Determines the base table 
entry and displacement 
for variable being 
allocated, constructing 

-a new base table entry 
if necessary. 


new BASE 
TABLE roll group. 


The base and displacement | 


for FORMAT statements 
are calculated and the 
PROGRAM BREAK increased 
aS required. 


Increases the address 
field of the pointer to 
the indicated roll so 


that the pointer points 
to the next group on 
the roli. | | 


Variables are checked for 
a previous ciassifica- 
tion as a global dummy, 


a scalar, an array, 
global Sprog, used 
library function, or a 


local sprog. 


Builds new group onto the 
SCALAR roll. 


Sets the mode of the 
Variable to fixed or 
floating, explicit or 


implicit, or not used. 


Prunes three groups from 
the WORK roil, and 
exits with a true ans- 


wer in ANSWER BOX. . 


Prunes two groups from 
the WORK roll, and 
exits with a true 


answer in ANSWER BOX. 


Prunes one group from the 


exits 
in 


and 
answer 


WORK roll, 
with a true 
ANSWER BOX. 


Set ANSWER BOX to true 


and exit. 


Routine 





Label Name Comments : 
GO460 CLEAR TWO Prunes two groups from 
AND EXIT the WORK roll, . and 
FALSE exits with a false 
answer in ANSWER BOX. 
GO0461 CLEAR ONE Prunes one group from the 
AND EXIT WORK roll, and exits 
FALSE with a false answer in 
ANSWER BOX. 
GO462 EXIT FALSE Sets ANSWER BOX to false, 
| and exits. 
GO464 CLEAR FOUR Prunes four groups from 
AND EXIT the WORK roll, and 
exits. 
GO465 CLEAR THREE Prunes three groups from 
 ~AND EXIT the WORK roll, and 
exits. 
GO466 CLEAR TWO Prunes two groups from 
AND EXIT the WORK roll, and 
: exits. 
GO467 CLEAR ONE Prunes one group from the 
AND EXIT WORK roll, and exits. 
GO468 EXIT Obtains return address 
from the EXIT roll, and 
transfers to that 
address. 
UNIFY LABEL LIST 
The labels enumerated in the following 


list are used in the flowcharts provided 
for the illustration of the major routines 
used by Unify. 





Chart 
Label TD Routine Name 
GOLi1 07 START UNIFY 
G0145 DA ARRAY REF ROLL ALLOTMENT 
G0113 DB CONVERT TO ADR CONST 
G0112 DC CONVERT TO INST FORMAT 
G0115 DD DO NEST UNIFY 


SUPPLEMENTARY UNIFY LABEL LIST 


described in this section 

number labels which are 
presented in ascending order. These rou- 
tines are those used in the operation of 
Unify which are not shown in the section of 
flowcharts for the phase. 


The routines 
are listed by G 


Label 


G0114 


G0116 


G0117 


G0118 


G0119 


G0120 


G0121 


G0122 


G0123 


G0124 


Routine 
Name 
CALL GEN 


NOTE ARRAY 
ALLOCATION 
DATA 


LEVEL ONE 
UNIFY 


DO LOOP 
UNIFY 


SWEEP 
SCRIPT 
EXP NOTE 


ZERO COEF 
UNIFY 


NOTE SCRIPT 
EXP 


ESTABLISH 
STD SCRIPT 
EXP 


NOTE HI 
FREQ STD 


SCRIPT EXP 
UNIFY 


Comments 


Transfers to the Gen 
phase of the compiler. 


Processes SCRIPT roll 
block to reflect stor- 
age allocation. 


Sets variables for the 
processing of a single 
loop or the outer loop 
of a nest of loops. 


the processing 
asso- 


Controls 
of script data 
ciated with 
innermost loop. 

code 


Compares the area 


and the outer coeffi-. 


cient of all other 
entries on the NEST 
SCRIPT roll to the bot- 
tom entry on the roll. 


Sweeps the script entries 
for the innermost loop, 
determining whether the 
outer coefficient is 


-gero and that the inner 


coefficients are also 
the same. Depending 
upon the condition, the 
loops are re-registered 
on the LOOP SCRIPT 
roll. 


Establishes the nature of 
the script entries as 
standard or non- 
standard. | 


CONTROL 
entries 

SCRIPT 
in wo, 
the 


Forms the LOOP 
and REG roll 
for each STD 
pointer found 
also registering 


STD SCRIPT LOOP CONTROL 


rung. 


Checks the frequency used 
for-a particular stand- 
ard script expression, 
and sets the frequency 
count. 


Controls the processing 
of innermost _ LOOP 
SCRIPT roll entries 


with matching area code 
and outer coefficients; 
also links each NONSTD 
roll entry with each 
STD roll entry, compar- 
ing the induction 
coefficients. | 


current 


| Routine 
Label 





Name Comments 
G0126 STANDARD  +#£=PProcesses STD SCRIPT roll 
EXPS UNIFY when NONSTD roll 
entries have all been 
processed or have never 
existed. Moves entries 
to next outermost loop. 
G0127 CONVERT Picks a NONSTD roll entry 
NONSTD with a minimum dis- 
SCRIPT TO placement and processes 
STD it as if it were a 
Standard script. 
G0128 SIGN ALLOC Utility routine to spread 
DISPLACE- the sign of negative 
MENT displacements. 
G0129 DELTA GE Processes paired STD or 
4087 UNIFY NONSTD roll entries 
with DELTA greater than 
4087 bytes. Generates 
second register and 
LOOP CONTROL entries. 
G0130 DELTA LE Processes paired STD or 
4087 UNIFY NONSTD roll entries 
with DELTA less’~ than 
4087 bytes. DELTA is 
placed in each ARRAY 
REF entry in the chain. 
G0131 ESTABLISH Controls formation of 
REG LOOP CONTROL and REG 
STRUCTURE roll groups for SCRIPT 
pointer in WO. 
G0132 EST. REG Forms. REG roll entry for 
GROUP SCRIPT pointer in WO. 
G0133 ESTABLISH Entry to establish loop 
LOOP control which sets up 
CONTROL... stamps for. impending 
LOOP ‘CONTROL group. 
G0134 EST. LOOP Forms LOOP CONTROL group — 
| ‘CONTROL for SCRIPT entry in Wi. 
G0135 FORM OUTER Processes paired STD or. 
SCRIPT NONSTD roll entries 
with best match in 
inner coefficients. 
Forms SCRIPT entry for 
next outermost loop 
with coefficient dif- 
ferences in coefficient 
slots. 
G0Q136 NOTE SECOND Runs the ARRAY REF 
REG THREAD thread, removing. each 
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Miscellaneous Reference Data 


link to provide for the 
second register. 
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G0138 


G0139 


G0140 


GO141 


G0142 


GO143 


G0144 


Routine 


Name 


UPDATE 


FREQS 


REG SCRIPT 
EXP 


PRUNE 
SCRIPT REL 
TO PNTR 


NOTE ARRAY 
REF DELTA 


REALIZE 
REGISTERS 
SWEEP 


NOTE HI 
FREQ REG 


ASSIGN 
TEMPS FOR 
REGS 


CONVERT REG Performs 
TO USAGE 


GEN LABEL LIST 


The 


list 
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labels 
are 


contained 
illustrated 
provided with the 
phase of the compiler. 


Comments 

Sums the frequencies of 
the STD or NONSTD pair 
to. indicate increased 
usage. : 

Registers the STD Or 


NONSTD in WO on the STD 
or NONSTD roll. 


Utility routine to remove 
SCRIPT groups. 


Adjusts the information 
indicated from the 
SCRIPT allocation ac- 


cording to the displa- 
cement to the asso- 
ciated ARRAY REF roll 
entries. 


Sweeps the REG roll, as- 
Signing available reg- 
isters to the registers 
and temps, according to 
the frequency of use of 


the registers in the 
REG roll. 

Utility routine which 
notes the REG roll 
group indicating the 
highest frequency of 
use. 


Places next temp into the 
ARRAY REF run and ad- 
justs the LOOP CONTROL 
stamps to reflect temp 
usage. 


the actual 
transfer of REG or TEMP 
roll entries into the 
ARRAY REF threads. 


in the following 
in the flowcharts 
description of the Gen 


Label ~_ID 


_ Chart | 
Routine Name 


GO#9T ~~ 08 = START GEN” 
GOK99.=Ss«EA.——SsSOETRY.- CODE GEN 
G0504 EBL PROLOGUE GEN 
G0508° EC EPILOGUE: GEN. 
G0712 ED GET POLISH 
0493 EF LBL PROCESS. 
G0515 EG STA GEN 

STA GEN FINISH 


GO496 EH 


SUPPLEMENTARY GEN LABEL LIST 


The routines described in this section 
are listed by G number labels which are 
presented in ascending order. These. rou- 
tines are those used in the operation of 
Gen but not shown in the section pertaining 
to the phase. : | 


Routine 


Label Name _ Comments 
GO494 CLINCH Clears the base register 
| | table. ae . 
GO497 ZERO THE Clears) the accumulators 
ACS to be used. 7 
GO498 MOVE ZEROS Fills the indicated 
TO T AND C number of groups on the 
TEMP AND CONST roll 
| with zeros. 
GO0500 INSERT PROG Puts name of source 
NAME IN module on CODE roll. 
CODE 
G0501 MAIN Builds instructions for 
PROGRAM the entry into the main 
ENTRY _ program. 
G0502 PRO AND EPI Determines the address 
ADCON GEN constant for prologues 
and epilogues for the 
instruction that is 
created. Se ~~ 
G0503 ADCON MAKER Builds ADCON roll group 
GEN and places adcon 
oes instruction on CODE 
: roll. ey eee 
GO505 LOAD DMYS Builds the code to load . 
Pa GRNe 2s the dummy arguments 
wares, Tyas specified in a 
-subprogram. | ae 


Label 
G0506 





G0507 


G0509 


G0510 


G0511 
G0512 


G0513 


G0514 


G0516. 


G0517 


G0518 


G0519 
G0520 


GO521 


Routine 
Name | 
BUILD DMY 
ARRAY DIM 


CALCULATE 
DMY DIM 


RESTORE DMY 


GEN 


TEST CALL 
BY NAME 


BUILD A 
MOVE DMY 
GROUP 
BUILD A 
STORE DMY 
ADD 
INCREMENT 
DMY PNTR 
BUILD A 
LOAD TWO 


ASSIGNMENT 
STA GEN 


AFDS STA 
GEN 


AFDS INIT 
ASSIGN STA 
GEN 


IF STA GEN 


LOGICAL IF 
STA GEN 


These 


Comments 


Determines the dummy 


array dimensions speci- 


fied in the arguments 
for the subprogram. 


Calculates the dummy 
array dimensions speci- 
fied as arguments to a 


subprogram, and builds 
the appropriate § in- 
structions. 


Restores the dummy argu- 


ments for value trans- 
fer at the end ofa 
subprogram. | 


Determines whether the 
arguments to a  subpro- 
gram were designated as 
call by name values. 


routines build 
the instructions that 
transmit the indicated 


values transferred by 
the dummy arguments to 
subprogram. f°. 


Controls the construction 
Of 
assignment statement. 


Controls and constructs 
the instructions for an 
arithmetic function 
definition statement. 


Initializes the construc- 
tion of the code for an 
arithmetic function 
definition statement by 

- constructing the label 
and jump instructions. 


constructs 


the object 
code for an ASSIGN 
statement. 

Constructs the object 
code for an IF 
statement. 

constructs the object 


code for a Logical IF 


Label 
G0522 





G0523 
G0524 
-—G0525 


G0526 


G0527 


G0528 


G0529 


G0530 


G0531 


the code for an 


G0532 


G0533 


G0534 


G0535 
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Routine 
Name 
BUILD JUMP 


INST 


GO TO STA 
GEN 
ASSIGN GO 
TO STA GEN 
GO TO JUMP 
GEN 


CGOTO STA 
GEN 
CGOTO FOR 


CALL RETURN 


GEN 


CONTINUE 
STA GEN 


BLOCK DATA 


GEN 


-STA INIT 


DATA STA 
GEN 


ALIGN DATA 


INIT FOR 
VAR 


MOVE DATA 


MOVE TO 
CARD IMAGE 


Obtains 


Comments _ 7 

Constructs a branch in- 
struction, with input 
indicating type and 
branch point. ° 

These routines control 
and. construct the 


object code required to 
execute the indicated 
type of GO TO state- 
ment. | 


These routines construct 

the object code for a 
GO TO statement that is 
the subprogram return. 


Returns. 


Sets up the rolls and 
data used in the con- 
struction of the object 
code for the BLOCK DATA 
statement. = 


Stores the statement 
number and leaves 
statement drives in WO. | 

Determines the use and 
mode of: the data 
Variables and con- 
structs the object code 
based on > this 
information. 

Adjusts the Gata for 

instruction format. 


Obtains the base, size, 
displacement, and area 
code of the indicated 


variable and adjusts 
the instruction format 
for the variable 


according to the infor- 
mation obtained. 


Sets up the beginning of 
the data for card 
format. 


the location of 
the indicated data for 
transfer to instruction 
format. 
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Label 
G0536 


G0537 
G0538 
G0539 


G0542 
G0543 
G0547 
G0548 


GO549 


G0550 


G0551 


G0552 


G0553 


GO554 


GO555 
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Routine 
Name 

MOVE TO 
CARD REPEAT 


PUNCH A TXT 
CARD — 
PUNCH A TXT 
CARD ML 
PUNCH TXT 
ENTRY 2 


CALCULATE . 
VAR SIZE 


END STA GEN 


BSREF STA 
GEN 


STOP PAUSE 
STA GEN 


LOAD IBCOM 


RETURN STA 
GEN 


ENTRY STA 
GEN 

SPROG 

STA GEN 


DEFINE FILE 
STA GEN 


GRNTEE A 
TEMP — 


ILLEGAL — 
AFDS STA 
GEN 


ILLEGAL STA Constructs a no-operation. 


GEN ENTRY 


. Generates 


Comments 

Controls the insertion of 
the data into the card 
format and the punching 
of the appropriate TXT 
card. | 


Write a TXT card from 
data whose location is 
provided. 


Determines size of a 
variable from TAG field 
of pointer in WO. 


Builds code for AT if 
required and branches 
to TERMINATE PHASE. 


Controls the construction 
of the object code for 
a BACKSPACE, REWIND, or 
END FILE statement. 


Constructs the object 
code for a STOP or 
PAUSE statement. 


Builds an instruction for 


a call to the IBCOM 
routine. 
Builds the object code 


for a RETURN statement. 


Constructs the label in- 
struction for an ENTRY 
statement or the entry 
into a subprogram. 


Constructs the object 
code instructions for 
the DEFINE FILE 
statement. 


Ensures that the constant 
from DEFINE FILE is 
registered on the TEMP 
AND CONST roll. 


an error link 
for a statement func- 
tion which was invalid. 


_ instruction and 
error link for 
statement in error. 


an 
the 


Label 
G0556 


G0557 


G0558 


G0559 


G0560 


G0561 


G0562 


G0563 


G0564 


G0565 


G0566 


G0567 


Routine 
Name 
IO STA GEN 


INIT IO 
LINK GEN 


UNIT 
ARG 


IO 


DIRECT I0 
ARG 


FORMAT I0 
ARG 


TO INITIAL 
ENTRY GEN 


BUILD UNIT 
ARG 


BUILD A 
LINK ARG 


BUILD 
FORMAT ARG 


GRNTEE IO 
LINK ADD 


IOL DO 
CLOSE GEN 


IO List 
GEN RUN 


Comments 
Determines the type of 
input/output statement 
that is indicated and 
transfers to the rou- 
tines that process that 


particular type of 
statement. | 
Initiates and sets data 


for the generation of 
the input/output link- 
age. 


Determines the logical 
unit number of the 
input/output device. 


Sets up controls for the 
construction of the 
object code for direct- 


access input/output 
statements. 
Sets up data pertaining 


to the FORMAT for the 


construction of the 
object code of an 
input/output statement 


under format control. 


Sets up code for the call 
to IBCOM to control 
execution of the indi- 
cated input/output 
statement. 


Constructs argument pass- 
ed for unit number in 
input/output linkages. 


Constructs the object 
code for the arguments 
designated in the 
input/output state- 
ments. 

Constructs the object 


code for the designated 
format control of an 
input/output statement. 


Constructs the object 
code for input/output 
linkage. 


Generates object code for | 
closing of implied DO 
in I/O list. 

Determines whether I/0 

list is DO implied. 


Label 
G0568 





G0569 


G0570 


G0O571 


G0572 


G0573 


GO574 


G0575 


G0576 


_G0577 


G0578 


G0579 


G0580 


Routine 
Name 

IOL DO 
OPEN GEN 


IOL ARRAY 
GEN 


Io LIST 
PNTR GEN 
IOL PNTR 
GEN 


IO LIST 
ARRAY -PNTR 
GEN 


BUILD 
ELEMENTS 
ARG: 


I0o LIST DMY 


ARRAY > 


GLOBAL DMY 
TEST 


IO STA END 
IO STA END 
GEN | 


BUILD IO 
LINK 


LOAD 
ADDRESS 
IBCOM 


INIT IBCOM 


PNTR AND 
ENTRY 


CALCULATE 


LENGTH AND 


TYPE 


DO STA GEN 


Comments 
Sets up the data for the 
generation of instruc- 


tions for input/output 
DO loop. 
- Generates linkage for 


secondary array entry 
to IBCOM. 


Determines the type of 
the I/O list, and con- 
trols the construction 
of the object code for 
the list. 


Sets up the data and 
determines the type of 
array list. 


Builds an argument for 
input/output linkage 
for a single element in 
an I/O list. 


Builds the object code 
for a dummy array I/0 
list. 


Determines whether the 
variable in 
has been defined in 
usage as a global 
dummy e 


Generates call for end of 
I/O list. 


Controls construction of 
the object code to ter- 
minate an input/output 
operation. 


Inserts the absolute call 
to the system input/ 
output routine, IBCOM. 


Initializes for process- 
ing of input/output 
statements by storing 
code word and IBCOM 
pointer from POLISH 
roll. 


Determines the length and 
type of variables de- 
Signated in input/ 
output statements. 


Determines the nature of 
the DO statement, sets 
up the data for the 
code of the statement. 


question. 


Label 
GO581 


G0582 


Routine 
Name 

LOOPS OPEN 
GEN. 


INIZ LOOP 


_ GEN 


G0583 


GO584 


G0585 


G0586 


G0587 


G0588 


G0589 


G0590 


Appendix E: 


INIZ GIVEN 
COEFF GEN 


DO CLOSE 
SBR 


FIND COEFF 
INSTANCE 


NOTE TEMP 
REQ 


INITIALIZE 


BY LOAD GEN 


GRNTEE TEMP 


STORED GEN 


GRNTEE 
SOURCE REG 
LOADED 


INCR GIVEN 
COEFF GEN 


Miscellaneous Reference Data 


Comments 
Obtains the DO control 
data and controls the 


construction of the 
appropriate instruc- 
tions. 


Determines the nature of 
the indicated DO loop 
after determining 
whether a loop exists. 


Constructs the object 
code for the initiali- 
zation of the indicated 


induction variable 
coefficient. 
Constructs the object 


code for the close of a 
DO loop after setting 
up controls for the 
increment and terminal 
values of the loop 
iteration. 


Determines the existence 
of the indicated nature 
of a loop through com- 
parison of the desig- 


nated traits and 
coefficient. 

Determines whether a 
register has been 


assigned for the script 
expression in question 
or whether a temporary | 
storage is required. | 


Generates the load of 
registers to be used 
throughout a DO loop. 


Builds a store instruc- 
tion for the temporary 
storage used by the 
script expression. 


Determines the area and 
location for the regis- 
ter to be used by the 


script expression, and 
generates the load 
instruction for the 
indicated temporary 
storage. 


Determines the nature and 


use of the loop § incre- 
ment and builds the 
appropriate instruc- 


tions for the execution 
of the increment. 
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Label 
GO0607 


G0608 
G0609 


GO0610 


GO0611 


G0612 


G0613 


G0614 


G0615 


G0616 
G0617 
G0618 
G0619 
G0620 


G0621 


G0622 
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Routine 
Name 
CALL STA 
GEN. 


FLP AND 
PREP VAR 


EXP GEN 
BY MODE 


EXP GEN. AND 


GRNTEE AC 


GRNTEE EXP 


EXP GEN 


GEN RUN 


NOT GEN 
UNARY MINUS 
GEN 


DIV GEN 


INTEGER 
DIV GEN 


SUB GEN 
ADD GEN 


MPY GEN 


INTEGER 
GEN 


INTEGER MPY 


DIV END 


SUM OR PROD 
GRNTEE — 


Comments 


Determines the 


Calls the routines which 
build the object code 
for the CALL statement. 


Flips POLISH roll and 
moves first variable to 
WORK roll. | Ss 


Controls the determining 


of the mode of the 
indicated expression. 


Generates code for ex- 
‘pression on bottom of 
POLISH roll and ensures 
that result is in a 
register. 


that the mode 
expression is 


Guarantees 
of the 
positive. 


Obtains the expression 
for GEN processing. 


operation 


mode of the entity in 
question. 
Inverts sign indicator 


for variable on bottom 
of WORK roll. 


Controls production of 
object code for divide 
operation. 

Generates code for inte- 
ger divide. 

Generates code for sub- 
tract operation. 

Generates code for add 
operation. 

Controls production of 
Object code for multi- 


ply operation. 


MPY Generates code. for. inte- 


ger multiply. 


Common end for multiply 
and. divide generation 
routines; 

.register usage. 


Guarantees that one of 
the two elements on 
WORK roll is..in oa 
register and that mode 
of operator is correct. 


records. 


Label 


G0623 


G0624 


-G0625 


G0626 
G0627 


G0628 


G0629 
G0630 
G0631 
G0632 
G0633 


G0634 


G0635 


G0636 


G0637 


G0638 


Routine 
Name ___ 
DRIVER GEN) 


AND GEN 
AND FINISH 
GEN 

OR GEN 

OR FINISH 
GEN 

PREPARE FOR 
LOGICAL GEN 


EQ GEN 


NE GEN 


LT GEN 
GT GEN 
GE GEN 


LE GEN 


RELATIONAL 
GEN 


PREPARE FOR 
RELATIONAL 


POWER GEN 


POWER AND 
COMPLEX MPY 
DIV GEN 


Comments | oa, 

If an array driver, goes 
to SCRIPT PREP; if not, 
exits false indicating 
end of an expression. 


Generates code for an AND 
Operation. 


Actually builds an AND 
Operation on CODE roll. 


Generates code for an OR 
operation. 


Actually builds an OR 
Operation on CODE roll. 
Sets up the data for the 


Statement containing a 
logical operation. 


Generates code for an EQ 
relational operation. 


Generates code for an NE 


relational operation. 


Generates code for an LT 
relational operation. 

Generates code for a GT 

relational operation. 


Generates code for a GE 
relational operation. 


Generates code for an 
relational operation. 


LE 


Builds the object code 
instructions based on 
the relational condi- 
tion specified in the 
logical operation. 


Converts and adjusts data 
for construction of the 
Object code of a rela- 
tional comparison. 


exponentiation 


Builds 
linkage on the CODE 


Sets up the. data for 

operations involving 
multiplication or divi- 
Sion of exponentiated 
or complex variables. 


Labe 
G0639 


G0640 


G0641 


G0642 


G0643 


GO644 


GO645 


G0646 


G0647 


G0648 


GO0649 


G0650 


G0651 


G0652 


Routine 


Name 


INTEGER — 
POWER GEN 


SPROG GEN 


SPROG GEN 
SUB 


SPROG END 
GEN | 


SPROG ARG 
SEQ GEN 


REG SPROG 
ARG 


GRNTEE ADR 
GEN 


TEST CONST 


ARG 


TEST AND 
STORE REGS 


GRNTEE AC 
GEN 


GRNTEE NEW 
AC GEN 
PICK A NEW 
AC 

PICK FL 

AC 

PICK A 
COMPLEX AC 


Comments 
Builds the appropriate 
— load... and multiply 


instructions for expo- 
nentiation depending on 


the mode of the 
operation. 
Determines the nature of 


the operand of a CALL 
statement or of a 
subprogram. 


Generates the code for a 
subprogram call includ- 
ing argument calcu-— 

. lations. 


Constructs the object 
code for the return or 
close of a subprogram. 


Controls the interpreta- 
tion of the sequence of 
arguments designated to 
a subprogram. 


Controls the register 
assignment to sub- 
program arguments as 
they are encountered in 
sequence. 


Guarantees that the 
subprogram arguments 
are assigned and builds 
the indicated load and 
store instructions. 


Determines mode of a con- 
stant .- _ subprogram 
argument. 


Tests to determine if any 
register used as an 
accumulator contains 
data; if so, generates 
code to store the con- 


tents in a temporary 
location. 
Stores the contents of 


wO in an accumulator if 
not already designated. 


These routines deter- 
mine the accumulator to 
be used in an indicated 
operation depending 
upon the mode of the 

variable in question. 


Label 
G0653 





G0654 


G0655 


G0656 


G0657 


G0658 
G0659 


G0660 


G0661 


G0662 


G0663 
G0664 


G0665 
G0666 


G0667 
G0668 


G0669 
G0670 


G0671 


TEST 


Routine 
Name 
CLEAR A 
PAIR 
PICK A 
PAIR 
PICK A 
PAIR END 


FOR 
BEST 


GRNTEE 
POSITIVE 
GEN 


COMP FX 
CONST 
COMP FL 
CONST 
COMP DP 
CONST 


COMP 
COMPLEX 
CONST. 


CORRECT FOR. 
SIGN DATA 1 


INCLINE 
FUNCTION 
GEN 


CONVERSION 
FUNCTION 
GEN 


ABS 
FUNCTION 
GEN 

MOD 
FUNCTION 
GEN. 

INT FUNC- 
TION GEN 
AIMAG FUNC- 
TION GEN 
CMPLEX 
FUNCTION 
GEN 

TWO ARG 
INLINE 
COMMON 


CONJG FUNC-. 


TION GEN 
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PAIR — 


sets 


Sets 


Comments 

These routines determine 
and clear a pair of 
fixed or floating ac— 
cumulators depending on 
the type of the reg- 


ister in wo. These 
routines are used in 
integer, — multiply, 
divide, and complex 
operations. 

Determines the two opti- 


mal accumulators to be 
used for the operation 
indicated. 


the mode of the 
indicates accumulator 
to positive if not 
already set, and 
generates appropriate 
code. 
Set the mode of the in- 


dicated constant. 


the mode of the 
indicated constant. 


in 


Conpsnieads the value 

- DATAI. 

Sets up table for the 
generation of code for 


in-line functions. 


Generates code to perform 
an in-line mode conver- 
sion. 


These routines generate 
the object code in- 
structions for the in- 
line function indicated 
by the name of the rou- 
tine. , | 
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Label 
G0672 





G0673 


G0674 


G0675 


G0676 


G0677 


G0678 


G0679 


G0680 


G0681 


204 


Routine 
Name 


SIGN FUNCT 


GEN 
DIM FUNCT 
GEN 


GRNTEE 
BOTH MODES 


GRNTEE 
MODE W1 


-LOGICAL- 


CONVERS ION 


FX 
CONVERS ION 


FL 
CONVERS ION 


CONVERT TO 
COMPLEX 
END 


TEST A FL 


CONST 


DP 
CONVERS ION 


Comments 
(see Label G0665) 


Sets the mode of the data 
in WO and W1 to posi- 


tive if not already 
set. 
Determines the mode of 


the variable in W1 and 
transfers to the appro- 
priate conversion rou- 
tine depending on the 
mode of WO. 


Places the logical vari- 
able contained in WO 
into an accumulator. 


Places the variables con- 
tained in WO and W1 in 
an accumulator if the 
mode is I*2; otherwise, 
a conversion to float- 
ing point is made. 


“Tests the contents of WO 


and Wi for floating 
variables or constants. 
If the contents are not 
floating variables or 
constants, it deter- 
mines the nature of the 
data, registers the 
variable or constant, 
and assigns an accumu- 
lator for the oper- 
ation. 


Generates code to clear 
the imaginary register 
and loads the real 
register in real to 
complex conversion. 


Exits false if pointer in 
wo is not to a floating 
constant; otherwise, it 
loads the constant into 
central area and exits 
true. 

Determines the nature of 
the 
variable constant 
indicated, converts 
into the indicated for- 
mat, assigns an accumu- 
lator, depending on the 
mode of the variable. 


or 


double-precision 


Label 
G0682 


G0683 


G0684 


G0685 


G0686 


G0687 


G0688 


G0689 
G0690 
G0691 
G0692 


G0693 


G0695 


G0696 


G0697 


Routine 
Name 
TEST DP 
CONST 


COMPLEX 
CONVERSION 


DP COMPLEX 
CONVERSION 


COMPLEX 
AC TEST 


AC END AND 


CONV RETEST 


CONVERT 
RETEST 


REGISTER 
WORK CONST 


REGISTER FX 


CONST 


REGISTER FL 


CONST 


REGISTER DP 


CONST 
REGISTER 


Comments 
Exits false if pointer in 


WO is not to a double- 
precision constant; 
otherwise, loads con- 


stant into central area 
and exits true. 


Determines the mode and 
nature of the two com 
ponents of the complex 
Variable or constant. 


Determines the mode and 
registers the indicated 


double-precision com-— 
plex variable or 
constant. 

Sets up FL AC roll for 
proper pointers to a 
value converted to 
complex. 


Used during conversion, 
to set up AC roll, and 
to determine whether 
conversion is complete. 


Sets up WORK roll so that 
GRNTEE MODE W1 can 
determine whether a 
conversion is complete. 


Records constant in WO as 
an integer constant. 


Register the constant 
from DATA area on the 
indicated roll if not 


already defined; con- 
stant is compiler gen- 
erated. | 


COMPLEX CONST 


REGISTER DO 


COMPLEX CONST 


FLOAT A FX 


FIX A FL 


FLOAT AND 


FIX COMMON 


G0708 


TEST AC 
AC TEST 


Converts a floating con- 
stant or generates code 
to convert a floating 
variable to fixed mode. 


Converts a fixed mode 
constant or generates 
code to convert a fixed 


variable to floating 
mode. 

Common exit for routines 
which write code to 


float or f1x variables. 


Determines whether the 
mode of the indicated 
accumulator is fixed or 
floating. 


Label 


_ G0709 


G0710 


GO711 


G0713 
GO714 


G0715 


G0716 


G0718 


G0719 


G0720 


GO721 


G0723 


G0724 


G0725 


G0727 


G0728 


Routine 
Name 


AC END 


GRNTEE AC 
ZERO 


SPOIL STO 
REG 


CLEAR THREE 


AND EXIT 
TRUE 
CLEAR TWO 
AND EXIT 
TRUE 
CLEAR ONE 
AND EXIT 
TRUE 


EXIT TRUE 
EXIT TRUE 
ML 


CLEAR THREE Remove 


AND EXIT 
FALSE 
CLEAR TWO 
AND EXIT 
FALSE 


CLEAR ONE > 


AND EXIT 
FALSE 


Comments 


Determines whether one or 
two accumulators are 
being used. 


Assures that the accumu- 
lator being used in the 
operation is register 
Zero. | 


Clears appropriate entry 
on AC roll for a 
register which has been 
stored. 


Remove indicated number 
of groups from WORK 
roll, set ANSWER BOX to 
true, and return. 


Sets ANSWER BOX to true 
and returns. 


indicated number 

groups from WORK 
set ANSWER BOX to 
and return. 


of 
roll, 
false, 


EXIT FALSE Sets ANSWER BOX to false 


EXIT FALSE 


ML 


CLEAR THREE Remove 


EXIT 


CLEAR THREE 


AND EXIT 
CLEAR TWO 
EXIT 
CLEAR TWO 
AND EXIT 
CLEAR ONE 
EXIT 
CLEAR ONE 
AND EXIT 


EXIT 
EXIT ML 


and returns. 


indicated number 
of groups from WORK 
roll and return. 


Returns. 


EXIT ANSWER Sets ANSWER BOX and exits 


ML 


for EXIT routines which 
set ANSWER BOX. 


Label 
G0730 





G0731 


G0732 


G0733 


G0734 


G0735 


G0736 


G0737 


G0738 


G0739 


GO744 
G0O745 
GO746 


— G0747 


G0748 
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Routine 
Name___ 
ADCON MADE 
LBL MAKER 


CHECK JUMP 
LBL | 


MADE LBL 
MAKER 


SCRIPT PREP 


CALCULATE 
SCRIPT 


TEST END 
SCRIPT 


CALCULATE 
OFFSET AND 
SIZE 


GRNTEE REG 
5 

TEST AND 
STORE REG 9 


BUILD A 
SHIFT 9 


BID INIT 
BIM INIT 
BIM BID 
INIT 


EXIT FULL 


BID 
BIDPOP 


Miscellaneous Reference Data 


Comments 
Builds ADCON roll and 
returns a pointer to 


the start of a group on 
the roll. 


Determines whether point-— 
er in WO refers to a 
jump target label. 


Creates entry on BRANCH 
TABLE roll for made 
label,. and returns 
pointer to group 
created. 


Sets up the data for the 


calculation of the 
indicated script ex- 
pression. 

Determines the mode and 


operation of the vari- 
ables contained in the 
script expression. 


Determines the end of the 
Script expression. 


Determines the size of 
each element contained 
within an expression, 
and the displacement 
pertaining to each 
array. 


Place the index values 
for arrays in register 
9 if not already set. 


Builds a shift register 9 
instruction for sub- 
scripting; shift length 
is determined by array 
element size. 


Initializes data for the 
contsruction of the in- 
struction designated by 
the BID, BIN, or BIM 
POP instructions. 


Used on entry to BIN when 


BIN fills the EXIT 
roll. 
This is the assembler 


language routine which 
constructs the instruc- 
tion designated by the 
-BIDPOP instruction. 
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Label 


_G0750, 


GO751 


“60752 


60753 


~GO754 


60755 


G0756 


GO7T57 


G0758 


GO759 
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Routine 


Name 


BIN 


NOTE A 
CSECT 


BIM — 
BIMPOP 


RX FORMAT 


RR FORMAT 


ADDRESS 
MAKER » 


BUILD A | 
BASE REG. 


SCALAR 
OPERAND 

ARRAY 
OPERAND 

GLOBAL | 
SPROG 
OPERAND 


USED FUNC- 
TION LIB 


OPERAND 


NAMES LIST 


OPERAND : 


FORMAT LBL 


OPERAND 


GLOBAL DMY 


OPERAND 


DMY LBL 
COMMON 


This is 


This routine 


~ Comments 
‘This 
BINPOP 


is the assembler 
language routine which 
constructs the instruc- 
tion designated by the 
BINPOP instruction. | 


the 


This routine obtains 
control section in 
which the current 


instruction being gen- 
erated is to be placed. 


the assembler 

language routine which 
constructs the instruc-— 
‘tion designated by the 
BIMPOP instruction. 


used to 
type 


General routine 
build all RX 
instructions. _ 


implements 

~ the RR format designa- 
tion for the instruc- 
tion being generated. 


Used to build all base, 


displacement, and inde 
type addresses. | 


Determines the base loca- 


tion within a particu- 

lar control section at 
which the object code 
instructions begin. 


Builds address for the 
specified type of oper- 
and. 


Generates address for 


FOMAT references. 


LBL OPERAND Builds address for refer- 


LOCAL SPROG 
- OPERAND 


ences to labels and 
statement functions. 


Label 


G0760 


G0761 


Routine 
Name 


| ence Ce Ram Hanae emai come em 


SPROG ARG > 
OPERAND — 


BRANCH > 
TABLE 


- OPERAND 


G0762 


G0763 


G0764 


G0765 


G0766 


G0767 


G0768 


G0769 


G0770 


GO771 


BRANCH 
TABLE 
COMMON 


BRANCH 
SPROG 
COMMON 


T AND C 
OPERAND 


T AND C 
COMMON 


T AND C B 
COMMON 


LOCAL DMY 


OPERAND 


FX CONST 
OPERAND 


FX FL CONST 
SEARCH AND 


REG 
FL CONST 
OPERAND 


FX FL CONST 


COMMON 


SEARCH AND 


REG SP 
CONST 


SEARCH AND 


REG FX 
CONST 


SEARCH AND 


REG FL 
CONST 


Oments an 


Builds address for refer- 
ence to  subprogram 
argument list. 


Builds address for refer- 
ences to made labels. 


Used by LBL and BRANCH 
TABLE OPERAND routines 
to contstruct address. 


Used by LBL, BRANCH TABLE 
and SPROG ARG OPERAND 
to construct address. 


Constructs address for 
references to temporary 
storage or constants. 


Used for T AND C OPERAND 


and pointers to con- 
stant rolls. : 

Common exit for all 
‘branch and temporary 
and constant operand 
routines. 


Determines the base loca- 


tion for the indicated 
operand and builds the 
code data from this 
information. 

Determines the size of 
the fixed constant 
operand and constructs 


the instruction depend- 


ing upon this infor- 
mation. 
Moves. Single-precision 


constant pointed to 
TEMP AND CONST roll if 
not already on roll. 


Performs part of move of 
constant to TEMP AND 
CONST roll. 7: 


Searches TEMP AND CONST 
roll, registers ~ con- 
stant if not already 
there, and returns 
pointer to TEMP AND 
CONST roll group. 





GO774. 


Routine 
Name _ 
REG G SP 
CONST 


DP FL CONST 


~OPERAND 


COMPLEX ° 


CONST 


OPERAND 


SEARCH AND 
REG DP CONST 


SEARCH AND 


REG COMPLEX: 


GO775 


CONST 


REG DP 


CONST 


G0776 


GO777 


G0778 


G0779 


G0780 


G0781 


G0782 


G0783 


DP COMPLEX 
CONST 


OPERAND 


SEARCH AND 
REG DP 
COMPLEX 
CONST 


REG DP 
COMPLEX 
CONST 


TEST DOUBLE 
WORD 


“BOUNDARY > 


ARRAY REF — 


- OPERAND- 


LOAD REG 
FROM TEMP 


ARRAY PLEX 
OPERAND . 


~SRCH AND ST 


X9 FROM 
ARRAY PLEX 


cate Registers a 


cnegiete- 


- dresses. 


~ Comments 
Registers singlé-preci- 
sion constant on TEMP 


AND CONST roll. 


Consteack. address for 

- yeferences to double- 
precision real and 
‘Single-precision 


com- 
t atiaa SONS rants: | 


Ensures that a- aonb 
precision real or 
single-precision com— 


plex constant is on the 
TEMP AND XONST roll and 
returns a pointer to 


' new double- 
precision constant on 


the TEMP AND CONST 
Constructs address for 


- reference. to a double- 
~ precision complex con- 
Stant. 


Ensures that a double- 
precision complex con- 
stant is on the TEMP 
AND CONST roll and 
returns a pointer to 


anew double- 
complex con- 
TEMP AND 


precision 
stant on the 
CONST roll. 


Determines if che address 
designated to the vari- 
able or constant in wO 


begins on a doubleword 
boundary. 

Handles array reference 
“pointers to obtain 
scripted arrays ad- 


Generates a load of a 

- base register from a 
temporary storage loca- 
tion. 


Handles building address- 


es: when array plex is 
the indicated operand. 


Stores register 9 ina 
temporary register if 
needed for generation 
of array te address- 
es. 


Label 


60784 


60785 


G0786 


_ 60787 


G0930 


G0931 


G0932 


G0933 


G0934 


G0935 


Appendix E: Miscellaneous Reference Data 


Routine 


Name - -Comments ee oe 
‘STORE IN: Generates code to store 
TEMP. ‘that register in a tem- 
4 - porary location if WO 
is a ‘pointer to a 
registers | 
STORE AND Uses a temporary location 
RETURN | in checking temporary 
TEMP ' pointers for the indi- 
cated constants. 
SEARCH ‘Beginning with a pointer 
to the TEMP PNTR roll 


TEMP ROLL 
ee in WO, searches for an 
available temporary al- 


ready defined. Returns 
true, with pointer to 
TEMP AND CONST roll if 
found; otherwise, re- 
turns false. — | 
OPERAND RUN Selects processing rou- 
‘tine | for present 


operand from pointer. 


SPOIL STO Determines whether point- 


VAR ed to variable is being 
SPOIL ‘STORE used in subscript which 
VAR - is now © contained in 

register 8 or 9; if so, 


oe iat that register. — 


SPOIL STORE Determines | ‘unethes = 4 


VAR NON » stored variable which 
READ IO ~~ has not appeared in a 

ee READ should be stored. 
CLEAR ONE Determines if pointed to 
AND SPOIL variable is COMMON, 
CEAD EQUIVALENCE, alterable, 

| or .dummy; if so, spoils 


any register containing 
a subscript which uses 
any CEAD variable; and 
prunes one ‘gzour from 
WORK. ; 


 etear ONE AND 
it 


SPOIL CEAD Same. as 
SPOIL CEAD except 


does not prune WORK 
roll. | 
TEST A CEAD Tests. to determine if 
| variable pointed to by 
WO is COMMON, EQUIVA- 
LENCE, alterable, or 
dummy « 
NO ARG Entry point for generat- 
SPROG END ing a subprogram call 
GEN without arguments. 
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Label 





G0937 


G0938 


G0939 


G0940 
GO941 


GO0942 


G0943 


GO944 


GO945 


GO946 


GO94K7 


GO948 


GO949 


G0950 


G0951 


G0952 
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Routine > 


Name 


SIMPLE 
SCRIPT PREP 


CLEAR 3 
EXIT BIN 
CLEAR 1 
EXIT BIN 


EXIT BIN 
SUBCHK GEN 


SIMPLE 
SCRIPT 
OPERAND 


TEST FOR 
HIT 


LOAD 
SIMPLE X 
REG 


PICK A NEW 
SIMPLE X 
REG 


CALC ELEM 
SIZE AND 
SHIFT 


AT STA GEN 


TRACE ON 
STA GEN 


TRACE OFF 
STA GEN 


DEBUG 
INITIAL 
LINKAGE GEN 


DEBUG VAR 
ADR GEN 


DEBUG 
ELEMENTS 
GEN 


Comments 
Builds ARRAY PLEX roll 
for subscripts handled 


in registers 8 and 9. 


Exits from BIN, BIM and 
BID POP subroutines 
which remove the indi- 
cated number of groups 
£ rom WORK. 

Exits from BIN, BIM, and 

BID POP subroutines. 


Builds code for SUBCHK 
entry if required. | 
Generates the code to 
compute a subscript 
value to be held in 

register 8 or 9. 


Determines whether reg- 
ister 8 or 9 already 
contains the present 
subscript. 


Generates code to set up 
register 8 or 9. 


Determines whether regis- 
ter 8 or 9 will be used 
for subscript which 
must be loaded. 


Calculates array element 
size and the length of 
shift necessary to mul- 
tiply by that value. 


Generates the object code 


for an AT statement. 


Generates.) DEBUG linkage 
for a TRACE ON 
statement. 

Generates DEBUG linkage 
for a TRACE OFF 
statement. 


Generates initial linkage 
to DEBUG. 


for 
SUBCHK 


address 
or 


Generates 
INIT 
variable. 


number of ele- 
for DEBUG link- 


Generates 
ments 
age. 


Label 


G0953 


G0954 


G0955 


G0956 


G0957 


G0958 


G0959 


Routine. 
Names ___ 
BIN 
VARIABLE — 


NAME 


RETURN | 
SCALAR OR 
ARRAY PNTR 


DEBUG INIT 
GEN 


DEBUG SHORT 
LIST INIT 
GEN 


DEBUG DMY 
INIT GEN 


DISPLAY STA 
GEN 


DEBUG INIT 
ARG GEN 


EXIT LABEL LIST 








Comments 

Puts name of variable on & 
CODE roll. : 

Returns pointer to a 
SCALAR or ARRAY roll 
group from less direct 
reference. 

Generates DEBUG linkage 


for INIT variables. 


Generates 


DEBUG linkage 


for INIT of a full ar- 


ray. 

Generates DEBUG linkage 
for INIT of a dummy 
variable. 

Generates DEBUG linkage 
for a DISPLAY | 

statement. | 

Generates DEBUG calls 


after a CALL statement. 


The labels enumerated in the following 
in the flowcharts provided 
for the illustration of the major routines 
used by Exit. 


“e PISt 


Label 


G0381 
G0382 
G0383 
G0384 
G0399 
GO400 
GO402 
GO403 
GO404 
GO405 
G0416 
GO424 
G0564 


The 
are listed by G number labels 
ascending order. 
tines are those used in the 


presented 


are used 


Chart 
ID 

09 
FA 
FB 
FC 
FD 
FE 
FF 
FG 
FH 
FI 
FJ 
FK 
FL 





routines 


in 


Routine Name 


EXIT PASS 


PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 


PUNCH 


PUNCH 
PUNCH 
PUNCH 
PUNCH 


TEMP AND CONST ROLL 
ADR CONST ROLL 
CODE ROLL 

BASE ROLL 

BRANCH ROLL 

SPROG ARG ROLL 
GLOBAL SPROG ROLL 
USED LIBRARY ROLL 
ADCON ROLL 

RLD ROLL 

END CARD 

NAMELIST MPY DATA 


SUPPLEMENTARY EXIT LABEL LIST 


described in this section 


which are 
These rou- 
Operation of 


Exit which are not shown in the section of 
flowcharts for the phase. 


G0386 


G0388 
GO0389 
G0390 
Pee 
G0392 
G0393 
GO0394 
G0396 


G0397 


G0398 


GO401 


GO406 


GO407 


Routine 


SWEEP CODE 


ROLL 


SWEEP CODE 


ROLL ML 


PUNCH INST 
PUNCH INST 
ML 


PUNCH TWO 
HALFWORDS 


PUNCH ONE 
HALFWORD 


PUNCH 
THREE 
HALFWORDS 


PUNCH CODE 
ABS PUNCH | 


RELOC 


CONST . 


PUNCH 


ABS CONST 
PUNCH 

ABS CONST 
PUNCH ML 


DEFINE LBL 
ADCON 
PUNCH 


POC DATA 
PUNCH 


SWEEP BASE 


BRANCH 
ROLL 


HALF WORD 
WO TO TXT 
CARD 


WO TO TXT 
CARD 

WO TO TXT 
CARD ML 


Sets up a three 


Initializes 


Comments 

Determines the nature of 
a word on the CODE roll 
and processes it ac- 
cording to type. 

Determines the type of 
instruction to be 
punched (one, two, or 
three halfwords). 

Sets up a two halfword 


instruction format. 


Sets up a one  halfword 
instruction format. 


halfword 
instruction format. 


Punches the indicated 
instruction in the 
indicated format. 


Sets up for the punching 
Of object module abso- 
lute constants. 


Sets the format for the 
punching of a relocat- 
able absolute constant. 


Punches the indicated ab- 
— gsOlute constants in 
the object module. 


Defines indicated label 
On BRANCH TABLE roll. 


Punches the address con- 
Stant indicated in WO. 


Sets up the information 
needed for the listing 
and punching of code 
contained on the CODE 
roll. 


for the 
punching of the groups 
contained on the BASE 
and BRANCH TABLE rolls. 


A halfword instruction 
format is set up for 
the contents of WO. 


Transfers the contents of 
WO to the output area 
to be punched. 


G0413 


GO414 


GO417 


GO418 


GO4u19 


G0420 


GO421 


Routine 
MOVE CODE 
TO TXT CARD 


INITIALIZE 
TXT CARD 
INITIALIZE 
TXT CARD ML 


PUNCH 
PARTIAL 
TEXT CARD 


PUNCH A 
CARD ML 


PUNCH AN 
ESD CARD 


DEPOSIT 
LAST ESD 
NO. ON 

RLD CARD 


DB SECOND 
RLD WORD 
WITH CONT 


DB SECOND 
RLD WORD 
WITH NO 
CONT 


DB SECOND 
RLD WORD 


DEPOSIT 
WORD ON 


~ RLD CARD 


G0422 


G0423 


G0425 


G0426 


PUNCH AN 
RLD CARD 


TERMINATE 
RLD 
PUNCHING 


LIST CODE 


RS OR SI 
FORMAT 
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Transfers the indicated 
code to the output area 
to be punched. 


Initializes the format 


for the punching of the 
TXT cards. 


Punches any part of a 


TXT 
card. 

Punches. a complete TXT 
card. 

Sets the format for the 
punching of an ESD 
card. 

Obtains and -deposits the 
last ESD number on the 
indicated RLD card for 


punching. 


Sets the format of a card 
with a continuation to 
a second card. 


Turns off the continua- 
tion indicator x 
punching ot the RLD 


card. 


Places the second word 
into the RLD format in 
the output area. 


Places the indicated word 


into the appropriate 
location in the RLD 
format. 3 ; 2 


Punches the indicated RLD 
card. 


Determines whether the 
RLD card is full and 
sets controls accord- 
ingly. 


Sets up the format for 
the object module list- 
ing, and determines the 
instruction format for 
each indicated instruc- 
tion to be printed. 


Determines whether the 
indicated . instruction 
is RS or SI format. 
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for the _ 





G0428 


GO429 


GO430 


~—6©G0431 


GO432 


G0433 


—G0434- 


G0435 


G0436 
GO437 


G0438 


G0439. 


GO44O 
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Routine 
rere - | 
“FORMAT 


“SI FORMAT 


RX FORMAT 


RR FORMAT 


SS FORMAT 


ADCON LIST 


DC LIST 


PRINT © 
ADCON 
LBL 


PRINT A 
MADE LBL 


MADE LBL 


~ADCON LBL 


COMMON 
PRINT A 
LBL 


PRINT BCD 
OPERAND 


PRINT A 
LINE 


PRINT A 


LINE PLUS 
ONE ML 


PRINT A 
LINE: ML. 


Sets 


Print the 


Comments 


Sets up the RS. fovmae aes 


the indicated instruc- 
tion. 


Sets up the SI format for 


the. 


indicated instruc- 


Sets up the RX format for 


the indicated > 


~instruc- 
tion. “= 


Sets up the RR format for 
the 
tion. 


Sets up the SS format for 


-the indicated instruc- 
tion. 
Sets up the format (DC 


format) for the address 
constants in the object 
module that are ‘to. be 
listed. : 


Lists ae constants. 


Sets controls for the 
printing of the indi- 
cated address constant. 


controls for the 
printing of the indi- 
cated label that has 


been created by the 
compiler. 

Inserts the indicated 
label into the print 


Output area. 


Prints the ifdicated 
label on the object 
| moduie listing. | 


Inserts the indicated op- 
-erand into the appro- 
priate position of the 

- object Listing in the 

- Output area. 


indicated line 
once a full line has 
been set up in ene out- 
pee area. 


indicated instruc- 


- Routine 


GO44y 


GO445 


HEADING 


PRINT. 
HEADING ~ 


ML 


PRINT | 
COMPILER 


STATISTICS © 


PRINT CSECT 


MEMORY 


~ REOMTS. . 


GOU46 


GO4Y7 


GO448 


GO449 


G04S0 


GO452 


PRINT Bl 


G0453 


GO454 


G0455 Cc 


G0O456 


PRINT Li 


MESS 


-PRINT 
~ CSECT 


TOTAL 


MESSAGE ML 


PRINT 
CSECT 


MESSAGE 


CONV AND 
PRINT. 
D2(B2) ML 


CONV AND 
PRINT 
D1B1 ML 


CONV AND 


PRINT D2 
CONV AND 
PRINT Di 


CONV AND 


CONV AND 
PRINT B2 


CONV AND 


PRINT R2 
CONV AND 
PRINT X2 


CONV AND. 
PRINT 12 


ONV AND 
PRINT R1 
CONV AND 


CONV WO AND 


PRINT 


CONVERT WO 


AND PRINT 


Sets. 


ML 


ML 
ML 
ML 
ML 
ML 


Converts 
ML 


ML 


ML 


Comments 3 : 
Prints the. indicated 
heading that is to | 


appear on the- object 


up the indicated . 
message in the “print 
output area. 


indicated 


Sets up tne 
the print 


message in 
output area. 


indicated 


Sets up the | 
the print 


message in 
Output area. 


Sets .-up the 
message in 
output area. 


indicated 
the print 


Converts the indicated 
general register desig- 
nation for the RX, RS, 
and RR formats. 7 

the indicated 
and general 

designation 
and. SS 


Converts 

address 
register 
for the SI 
formats. 


the indicated 
address’ and general 
register designations 
to instruction format. 


Converts 


Converts) the indicated 
address — and general 
register designations 
to instruction format. 


the indicated 
address and general 
register designations 
to instruction format. 


Converts 


the indicated 
address ana general 
register designations 
to instruction format. 


the indicated 
address and general 

register designations 
to instruction format. 


Converts 


Converts the contents of 
WO to decimal and in- 
serts into Eee output 

area. 





GO460 


GO461 


‘Routine 


Name 
CONV AND 


PRINT PLUS 


ONE ML 


PRINT A 
COMMA ML 


PRINT A 


PRINT A 


RIGHT PAREN 


ML 


G0462 


GO864 


PRINT A 


" CHAR ML 


CLEAR ONE 


EXIT | 


CLEAR ONE 
“AND EXIT ~ 


Comments 


Converts a number to dec- 
imal and places in 
print buffer. 


Places a comma into print. 


output area. 


Places a left parenthesis 
LEFT PAREN — 
ML BP 


into the print SOMEDEE? 
| area. | 
Places right paren- 


- output area. 


Places © the indicated 
character into the 
_ print eureut area. 


Prunes one word — the 
WORK roll and exits. 


thesis into the rey | 


Label 
GO465 





G0566. 


G0567 


G0569 
| --FROM PNTR 


Routine * 


Name 
EXIT 
EXIT ML 
EXIT 


ANSWER ML 


RLD ALIGN - 


SWEEP TE 


-RLD ALIGN 
TEST 
SWEEP TEST 


GET ADR 


ML 


a, ent. 


Comments: 

Obtains the last entry on 
the EXIT roll and 
transfers to the indi- 
cabs | eal 


Sorts RLD entries so that 


all RLDs in one (CSECT 


_ <cepesy Logcther: 


Determines whether pres- 
RLD is in the 
CSECT now being con- 
structed. ae 


Gets location on DATA VAR 
roll from pointer in 
wo. : 
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APPENDIX _F:__OBJECT~TIME_ LIBRARY SUBPROGRAMS _ 


This appendix describes the logic of the 
FORTRAN IV library subprograms. As the 
compiler examines the user's FORTRAN source 
statements and translates them into an 
object module, it recognizes the need for 
certain operations the library is designed 
to perform. At the corresponding points in 
the object module, the compiler inserts 
calls to the appropriate library subpro- 
grams. At linkage edit time, copies of 
these library subprograms are made part of 
the load module. Then, at execution time, 


the library subprograms perform their 
various functions. The nature of the 
user's program determines which and how 
many library subprograms are included in 


his load module. 


LIBRARY FUNCTIONS 
The library performs a variety of func- 
tions, which are of five general types: 


* load module initialization and termina- 
tion activities 


® input/output operations 

e error handling 

e data conversion 

e mathematical and service functions 
It is an important library responsibility 
to form an interface between the _ load 
module and the operating system: library 


subprograms interface with the data manage- 
ment access methods, provide exit routines 
for the system interrupt handler = and 
abnormal termination processor, and call 
the supervisor for various services. 


te NE NEE OY YS AY TS AS A A AY TY A 


composition and size of a 
FORTRAN IV library 


The precise 
user's version.of the 
will depend on what options he chose at 
system generation time. The actual 1loca- 
tion of his permanent library copy (the 
partitioned data set SYS1.FORTLIB) is also 
dependent on his installation choice. 


A few subprograms, commonly thought of 
as FORTRAN IV library members, and dis- 
cussed in this appendix, are not actually 
members of SYS1i.FORTLIB. Instead, they 
reside in the link library, to be loaded if 
needed by true library routines at execu- 
tion time. 
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BOUNDARY ALIGNMENT OPTION: 


SYSTEM GENERATION OPTIONS 


At system generation time, the user 
makes several choices which determine the 
exact makeup of his FORTRAN IV library. 
These concern: i 


If this option 
is selected, the IHCADJST routine is 
included (as a member of the link library). 
When specification interrupts occur, this 
routine is loaded to attempt correction of 
object program data misalignment. 


EXTENDED ERROR HANDLING OPTION: If this 
option is selected, expanded versions of 
some library routines are included. These 
provide: 


e more precise error messages 

e in some cases, more extensive 
corrective action and 
execution 

e the ability for the user to choose his 
own or the library's corrective action 


library 
continued. 


The library modules affected by this option 
are listed in Table 9. A user's library 
will include either one set of modules’ or 
the other. 


Table 9. Routines Affected by Extended 
Error Handling Option 
Gy ee 1 

| Without | With 

} Extended: | Extended | 
| Error Handling | Error Handling | 
}-------------------- }-------------------~ 
| IHCFCOMH | IHCECOMH | 
| IHCUOPT* | IHCUOPT * | 
| IHCDIOSE | IHCEDIOS | 
; - IHCFIOSH > | IHCEFIOS | 
| IHCFINTH | | IHCEFNTH | 
| THCTRCH** | IHCETRCH | 
| == | IHCERRM* ** | 
| -- IHCFOPT | 
p---------~----------- D8 aa ees 


| *The size differs, although not the | 
| name. | | 
| **With Extended Error Handling, ICHTRCH| 
| becomes an entry point in IHCETRCH. _ | 
{[***wWithout Extended Error Handling, | | 


IHCERRM is an entry point in IHCTRCH. | 


One other module is affected by system IHCTRCH 


generation choice. IHCUATBL, the data set 
reference table, has both its length and 
some contents determined at this time. 


This module (entry point IHCERRM) is 
the library error handling routine 
when extended error handling has not 
been specified. It is called by other 


_library routines to direct message 


MODULE SUMMARIES 


ITHCFCOMH/ IHCECOMH | | 
This module (with its CSECT extension 
IHCCOMH2 ) handles the load module 
initialization and termination activi- 
ties, and sequential and direct access 
input/output operations. It also con- 
tains switches, addresses, and save 
areas (at constant displacements from 
its entry point IBCOM#) that are used 


by other library routines. | THCERRM 


IHCNAMEL | 
This module directs NAMELIST  read/ 
write operations (entry point FRDNL# 
for reads, entry point FWRNL# for 
writes). 


IHCFIOSH/IHCEFIOS 
This module interfaces with the basic 
sequential access methods’ to do all 
sequential input/output for the load 
module. It is called (at entry point 
FIOCS#) by IHCFCOMH/IHCECOMH and 
IHCNAMEL to perform user-requested | 
read/write and device manipulation 


printing and produce traceback maps. 


IHCETRCH 


This module produces traceback maps 
when the extended error handling faci- 
lity is present. It can be called by 
the error monitor IHCERRM (at entry 
point IHCTRCH), or by the compiler- 
generated code (at entry point ERRTRA) 
at user request. 


This module is the error monitor when 
extended error handling has been spec- 
ified (otherwise, it is an entry point 
in IHCTRCH). It -can be called by 


other library routines detecting 
errors (at CSECT name IHCERRM), by — 
THC FCOMH/ IHCECOMH for termination 


error summary (entry point IHCERRE), 
and by the compiler-generated code at 
user request (entry point ERRMON) for 
handling of user-detected errors. 
IHCERRM directs its error handling 
activities according to the entries in 
the option table, IHCUOPT.. 


operations, and by other library rou- IHCUOPT 


tines (such as IHCERRM, IHCFDUMP, 
and IHCDBUG) to write error mes-— 
ages, traceback maps, user-requested 
dumps, debug information, etc. 


IHCDIOSE/ IHCEDIOS 
This module interfaces with the basic 
direct access methods to do all direct 


This module is the option table. In 
addition to a preface, it contains one 
entry for each library-defined and 
user-defined error condition. These 
entries are used by the error monitor 


IHCERRM to direct its handling of 


errors. 


access input/output for the load IHCFOPT 


module. It is called by the compiler- 
generated code (at entry point DIOCS#) 
for DEFINE FILE statements, and by 
IHCFCOMH/THCECOMH (at entry point 
IBCENTRY) for READ, WRITE, and FIND. 


IHCFCVTH : 
This module does data conversion 
required by other library routines. 
It is called (at entry point ADCON#) 
for formatted and namelist input/ 
output, and for other library opera- 


This module satisfies user requests to 


examine and modify the option table —— 


IHCUOPT. It is called at entry points 
ERRSAV, ERRSTR, and ERRSET by the 
compiler-generated code. 


THCFINTH/ THCEFNTH 


This module handles’ certain program 
interrupts. It 1S called by the sys- 
tem interrupt handler at entry point 
ARITH#. 


tions (such as traceback) that require IHCADJST 


EBCDIC output. 


IHCIBERH 
This module is called by the compiler- 
generated code (at entry point IBERH#) 
to terminate load module execution due 
to source statement error. 
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This module, which is included in the 


link library only if the user 
requested boundary alignment at system 
generation time, is loaded by 


IHCFINTH/IHCEFNTH to attempt correc- 
tion of data misalignment that has 
caused a specification interrupt. 
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IHCSTAE a | 
~ This’ module, which resides in the Link 
“library, is the STAE abnormal termina- 
tion processor. When  IHCFCOMH/ 
IHCECOMH receives control (at entry 
point - EXITRTN1)-~ from the system 
because the load module has been sche- 
duled for abnormal termination, it 
loads IHCSTAE to attempt completion of 
outstanding input/output — requests 
etre: execution engee nom 


THCUATBL ae ae : = 
This module is the unit assignment 
- table. It contains information about 


the user's data set references, and is 
used by the library input/output rou- 
tines in their operations. ~ 


THCFDVCH me 
This module is called by the eomoiieee 
-- generated .code (entry point DVCHK) at 
user request to determine if a divide 
a check nee oupe occurred. ar 


THCFOVER a 
-- "This module is called by the eononiee: 
Pe aencraced code (entry point OVERFL) at 


user - request ‘to determine whether or 
not overflow or. underflow > interrupts 
ooo | Rte aa 
IHCFSLIT: 


This. module: is | ieaqaed by the aren: 
generated code (entry points, SLITE, 
SLITET) at user request to set or test 
private Switches ~ ("pseudo-sense 
Lights" ). aaa So = 


IHCFEXIT 
“This module is called by the sonniiers 
generated code (entry point EXIT) at 
user request to terminate load. module 
execution. 
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IHCFDUMP | ros | | 
This module. is called: by the compiler- 


‘generated ‘code (entry © points DUMP, 
PDUMP) at user request to produce a 
dump of specified areas of main 
storage. | . 7 

IHCDBUG 


This module is called by the compiler- 
‘generated code (entry point DEBUG#) to 
direct the production of  user-: 
ee eet ed Gebusae ag Theoret 


MALHEMA LLC _ROUTINES: Information on 
these library modules can be found in: the 
publication IBM  System/360 Operating Sys- 
tem: FORTRAN IV. Library--Mathematical- and 
Service Subprograms, Order No... GC28-6818. 


MATHEMATICAL 


LIBRARY INTERRELATIONSHIPS 


It is helpful to recognize that there is 
not always a one-to-one. relationship: 


between library functions and. library 
modules. Some functions require’ the execu- 
tion of several modules, and,. mone Serv 


some modules are involved with -more” ‘than 


one Sunee one 


Certain iabeary modules are eaiiea pri- 
marily by the compiler-generated code, but 
a:large number are. called only by other 
library modules or by the ‘system. This 
relationship is illustrated in Figure 16. 


In interfacing with each other, with the 
system and with the compiler- clea 
code, nonstandard 
ing and register-saving procedures. 








_.Library routines 
entered initially 
from compiler- 

‘generated code 


~1HCDBUG | 
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Library routines 
entered only. 
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library routines 
or the system: 
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Library routines that fall into both 
categories, being entered sometimes 
from the compiler-generated code, and 
sometimes from other library routines — 
_ar the operating system: a 
IHCFCOMH/IHCECOMH 
IHCDIOSE/IHCE DIOS 
IHCETRCH 
IHCERRM 
Mathematical routines 
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Figure 16. Calling Paths for Library Routines 


INITIALIZATION | oo : e Issues a SPIE macro instruction speci- 

2 : | | fying library control for program 

4 “het | interrupts 9, 11, 12, 13, 15, and, if 

The library is responsible for the load boundary alignment was selected at sys-~ 
module*s initialization activities. Every tem generation time, 6. 


compiler-generated main program begins with 
a branch to the IBFINT section of IHCFCOMH/ ae . 
1HCECOMH. This library routine performs e Issues a STAE macro instruction speci- 


the following initialization procedure: fying library ‘control if the system 
| ee enemy Vj eeee 2 Sy schedules the load module. for abnormal 
e Saves the load module entry point in termination. | 
its» location MAINEP, and the main pro- | 
gram*s save area pointer in its = laoca- e Calls IHCFIOSH/IHCEFIOS to open the 
tion REG13. des Object error unit. 
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Control is then returned to the main pro- 
gram, which begins its processing. 


INPUT/OUTPUT OPERATIONS 


Processing FORTRAN input/output requests 
is mainly the responsibility of the 
library. For each request, the compiler 
sets up a call(s) to the appropriate entry 


point in the appropriate library routine. 
For NAMELIST READ/WRITE, the call is to 
IHCNAMEL, which then calls IHCFIOSH/ 
IHCEFIOS and IHCFCVTH. For DEFINE FILE, 


the call is to IHCDIOSE/IHCEDIOS. For all 
other operations, the call is to IHCFCOMH/ 
IHCECOMH. If the operation is sequential 
READ/WRITE, the IHCFCOMH/IHCECOMH routine 
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calls IHCFIOSH/IHCEFIOS (and also 


(and IHCFCVTH if 


IHCFCVTH 
if format control is present). If the 
Operation is REWIND, BACKSPACE, or ENDFILE, 


the IHCFCOMH/ IHCECOMH routine calls 
IHCFIOSH/IHCEFIOS. If the operation is 
direct access READ, WRITE, or FIND, routine 
IHCFCOMH/IHCECOMH calls IHCDIOSE/IHCEDIOS 


format control is pre- 


sent). If the operation is STOP with 
message, or PAUSE, routine IHCFCOMH/ 
IHCECOMH calls the supervisor. This flow 


is outlined in Figure 17. For each direct 
access Or sequential read/write request, 
the compiler-generated code issues multiple 
calls to IHCFCOMHAIHCECOMH: an initial 
call, one call for each item (either vari- 
able or array) in the I/O list, and a final 
call... Thus, the FORTRAN’ statement READ 
(23,100)Z,Y,X results in five consecutive 
calls to IHCFCOMH/ THCECOMH. 


. 


COMPILE R-GENERATED OBJECT CODE 
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DEFINE all other NAMELIST 
FILE | 1/0 requests READ/WRITE 







IHCFCVTH 
| C H and moves interprets 
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user’s |/O 
data 








SS 


direc » sequential 
access . READ, WRITE, 
READ, BACKSPACE, 
WRITE, REWIND, 


FINO ENDFILE 





IHCDIOSE/ pre to 

IHCEDIOS saves operator IHCFIOSH/IHCEFIOS 
DEFINE FILE data; : (STOP and submits request 
submits |/O request PAUSE) to data management 

to data management — 


SORE 










ease eee eos OC 
one eee oo 


load module 


operating 
system 


Basic Direct Basic Sequential. 


Supervisor 


Access Methods Access Methods 





*If Format is present 


Figure 17. Control Flow for TRpyEC OER Meer **Eor pre-formatting new data sets before writing user’s data 
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DEFINE FILE 


The  compiler-generated code branches 
directly to IHCDIOSE/IHCEDIOS at entry 
point pIecS#. This. 
address of the parameter list containing 
the data set characteristics supplied by 
the user and places it in the appropriate 
unit assignment table  (IHCUATBL) entry. 
There may be more than one data set defined 
per DEFINE FILE statement, in which case 
DIOCS# loops through the definitions, plac- 
ing the parameter list addresses into the 
table... age ae 

If a .data been 


set has. previously 


defined, the new definition is ignored. If. 


the data set requested is sequential rather 
than: direct, IHCERRM is called with error 
condition 235 indicated. If the 
is the object @rror unit, IHCERRM is called 
with error (234 indicated. 


| DIOCS# also places 
section IHCDIOSE/IHCEDIOS . that. 
actual reads and writes--IBCENTRY--into a 
fixed location in ITHCFCOMH/ IHCECOMH, “in 
order to establish addressability for later 
branching. If the user fails to place his 
DEFINE FILE statement ahead of his. asso- 
ciated § READ or WRITE statement, this 
address will not be available, and an error 
condition will occur. 


DIocs# returns to the compiler- generated 
code. ss as oe, e 


SEQUENTIAL READ/WRITE WITHOUT FORMAT 


Initial Call 


The initial call is to  JTHCFCOMH/ 
IHCECOMH, which saves END= and ERR= 
addresses, if they are present, in its 
locations ENDFILE and IOERROR, respective- 
ly, and then branches to IHCFIOSH/IHCEFIOS, 
passing along the data set reference 
number. 

IHCFIOSH/IHCEFIOS uses this data set 


reference number to consult the correspond- 


ing entry in the table iIHCUATBL. (This 
table is explained in Figures 18 and 19.) 
The initialization action taken ~~ by 


IHCFIOSH/IHCEFIOS depends: on the nature of 


the previous operation - ‘this 
data set. 


lities are: 


‘performed oon 


e no previous operation 


e previous operation was read or write 


218. 


section takes the. 


data set. 


the address of the 
handles. 


-blocksize; 
sets 
writes should be of logical record length. 


operation, 
READ 


The. el bl aca possibi-_ 


© previous operation was backspace 


¢ previous operation was write end of 
“file nai ge ere ee 


e previous operation was rewind 


NO PREV IHCFIOSH/ IHCEFIOS 
must create a unit block, which will 
tain the DCB, DECBs, and other library 
information to be used in controlling 
operations. ‘Space for the unit block is 
acquired with a GETMAIN, and a pointer to. 
it is stored in the IHCUATBL entry. (The 
contents of the unit: block are. outlined in 
Figure 20.) 


NO PREVIOUS OPERATION: 


[HCFIOSH/IHCEFIOS inserts certain stan- 
dard values.into the DCB in the unit block. 
It does this by moving in a copy of a 
nonfunctioning skeleton DCB, which speci- 
fies DSORG as PS, MACRF as (R,W), DDNAME as 
FTnnF001, and gives addresses in, IHCFIOSH/ - 
IHCEFIOS for SYNAD and EODAD, and for 
EXLST, which specifies the OPEN exit rou- 
tine. IHCEFIOSH/IHCEFIOS puts the data set 
reference number into the nn field of the 
DDNAME. This establishes for the system 
the connection between this DCB and the 


user's DD card, which must have the same 

name on it. | | 
IHCFIOSH/IHCEFIOS now issues an OPEN | 

macro instruction, which merges the user's 


DD information, and label information if 
the data set already exists. When its open 


exit routine (IHCDCBXE). gains. control, 
IHCFIOSH/IHCEFIOS examines the DCB. If 
fields are zero, indicating the user. has 
omitted corresponding DD parameters, | 


IHCFIOSH/IHCEFIOS inserts library default 
values. (These default values” are. stored - 
in me IHCUATBL entry.) 


OPEN macro, 
places: the buffer 
in the housekeeping _ ‘section of 
the. unit block, and also in the DECB(s). 

It also puts the DCB address. into the 
DECB(s). If this is a read operation, it 
sets the first byte of the type of input/ 
output request field in the . DECB(s) to 
X'80', indicating the reads “should be of 
if this is a write operation, it 
byte to X'00°, » indicating the 


After completion of ‘the 
IHCFIOSHZ IHCEFIOS 
address(es) 


this 


If the initialization is for a read 
IHCFIOSH/IHCEFIOS now. issues a 
with a CHECK, filling) the 
buffer. If double buffering is in effect, 
it also issues a second READ macro, to 


begin filling the second buffer. (This 


MACLO, 


READ is: not checked until IHCFIOSH/IHCEFIOS — 


is entered the next time for this data 
set.) Control is returned. to IHCFCOMH/ 
IHCECOMH, along with address and length of 


the data that was read. 


con-. 


If the initialization is for. write 
operation, IHCFIOSH/IHCEFIOS simply returns 
to | THCFCOMH/THCECOMH) “passing the address 
and length of the buffer. (The actual 
write operation. will not take: place’ until 
TCE CONE Teron fills ‘the’ buffer. : oe 
PREVIOUS_OPERATION--READ_OR WRITE: - In this 
case, the data set is already open and the 
unit block in existence. The DECB is set 
to indicate the proper action (either ‘read 
or’ write). If. this is a write: request, 
control-is ‘returned to IHCFCOMH/IHCECOMH 
with buffer. addréss and length. If it is a 
read request, the READ macro is issued to 
fill the buffer, and the address and 1léngth 
of the data that was read is ‘passed ‘pack tod 
THCEC OME, THCECUMN S « — 


PREVIOUS| OPERATION--BACKSPACE: “The opera- 
tion -is “the same as for "Previous 
Operation——Read or Write” ‘described above, 
except that priming of buffer(s) may be 
needed. : 





PREVIOUS ‘OPERATION--END FILE: ITHCFIOSH/ 


IHCEFIOS must first close the existing datia 
To process a: 


set, and process a new one. 
new data set, IHCFIOSH/IHCEFIOS. increments 
the sequence number of the DDNAME field in 
the old DCB; for example, 
changed to FT14F002. The OPEN procedure 
described above under “No Previous Opera- 
tion" is then followed. (The library 


assumes the user has a FTnnF002 DD card for 
read or 


this new data set.) The usual 
write procedure is used. a 


PREVIOUS __OPERATION--REWIND: The data set 
has been closed, and must be reopened. The 
procedure is the same as 
under "No Previous © 
after the creating of the unit block. 

In all of the 


IHCEFIOS returns Lo 
which saves the buffer pointer and 


above cases, IHCFIOSH/ 
~THCFCOMH/ THCECOMH, 
‘length, 


and then returns: to the compiler-generated 


code. 


Second Call 


The compiler- generated code calls 
THCFCOMH/ IHCECOMH, passing information 
about the first item in the I/O list (its 
address, type, whether it is a varidble or 
array, etc.). If this is a read request 
for a variable, IHCFCOMH/IHCECOMH takes the 
proper 
moves them to the indicated 

an array, LHCFCOMH/IHCECOMH 
process, filling tHe array ‘element by 
ment.. If this is a write request fora 
variable, IHCFCOMH/IHCECOMH takes the 
from the indicated address and moves it 


address. ‘For 
‘repeats - ‘the 
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FTI4UFO01 is 


that described 
Operation, " peg. ans ae 


data 


number of bytes from the buffer and 


elé= 


item 


into the buffér. For an- “atray, IHCFOMH? ~ 
THCECOMH ‘repeats the protess, emptying the 
array element: by element, After adjusting 
itS buffer pointer so it points to either 
the ‘next data item or the next ‘empty space, 
IHCFCOMH/IHCECOMH returns to the’ compiler- 
generated code. 


AgGi tional, List teem calls 


SS a en ee ee Se SS Se ee ot ene oe s 


The procedure is the saffé-as for the 
first list item, with these exceptions. 
When IHCFCOMH/ IHCECOMH is’ ‘processing a read 
request atid’ finds it has emptied the buff-— 
er, it calls IHCFIOSH/ LHCEFIOS — “to: issue - 
another READ macro and refill Ske If 
double buffering is in effect, IHCFIOSH* 
IHCEFIOS - passes the address of the other 
buffer (after -chécking the READ “macro for 
that buffer), and then issues a’ READ macro 
instruction for the buffer just emptied, 
always keeping one: READ ahead. gee ey eee Ea 


When -IHCFCOMH/IHCECOMH is processing a 
write request and finds it has filled the 
buffer, it calls THCFIOSH/TIHCEFIOS to issue 
the actual WRITE macro. If double buffer-+— 
ing is in effect, IHCFIOSH/IHCEFIOS passes 
back the address of the other buffer. 


Final Call 


For a read operation, the main program 
passes control to TIHCFCOMH/IHCECOMH:. which 
passes control on to {LHCFIOSH/IHCEFIOS. If 
IHCFIOSH/IHCEFIOS finds that, for this data 


set, physical records are larger than log- 
ical records, Lt Simply returns to 
IHCFCOMH/IHCECOMH, which returns to the 


compiler-generated object code. If physi- 
cal records are shorter than logical rec- 
ords,; THCFIOSH/IHCEFIOS. issués READ macros 
until it) reachés the.-end of*the ilogical - 
record. This: positions the device at. the. 
beginning of the nekt logical’ ‘yecord, in 
preparation for subséquent — FORTRAN READ 
requests: for this UNE : Pak. aks 


For a write operation; “THCFCOMH/IHCECOME 
gives control to IHCFIOSH/IHCEFIOS. If the. 
set is unblocked, or if it is blocked. 
and the buffer is. full, ‘THCFIOSH/THCEFIOS: 
issues a final © WRITE MACTO. | 


System Block Modi ficacion and paterencs 


“White - performing: oes - £urictions, 
THCF1OSH/IHCEFIOS may: modify certain fields. 
of the current DCB: °° .«« Ae 
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DCBBLKSI-~- IHCFIOSH/ IHCEFIOS isnges this 
_. field before writing out a short 
block when RECFM=FB. ITHCFIOSH/ 
_IHCEFIOS restores it after issu- 
ing the corresponding CHECK 
MaCroe _ 


DCBOFLGS--before issuing a CLOSE (TYPE=T) 
macro to implement an ENDFILE 
request, IHCFIOSH/IHCEFIOS turns 
on the high order bit to make 


this look like an output data 


set. 

IHCFIOSH/IHCEFIOS also modifies some 
fields of the DECB(s), in addition to its 
initialization: | 
DECTYPE (byte 1)--for reads, set to indi- 

cate a read of blocksize; for: 
writes, set to indicate a write 


of logical record size. 


DECTYPE (byte 2)--set to indicate read or 
write when the previous opera- 
tion for this data set was’ the 
Opposite. 


DECLNGTH--filled in when a U~type record is 
to be written. 


In addition to referring to the DCB and 
DECB(S), IHCFIOSH/IHCEFIOS also examines 
the CSW field in the Input/Output Block 
(IOB) to get the residual count. (The DECB 
points to the’ IOB.) By subtracting the 
residual count from the DCB blocksize, 
IHCFIOSH/TIHCEFIOS knows the actual length 
of the data read into the buffer. 


Error Conditions 


During their 
sequential reads and writes, 

IHCEFIOS and IHCFCOMH/IRCECOMH 
various times for a number of error condi- 
tions. IHCFIOSH/IHCEFIOS checks’ for the 
following error conditions: the user's data 
set reference number is out of JIHCUATBL 
range (error 220); he failed to supply..a DD 
card for the requested data set (error 219); 


THCFIOSH/ 
check at 


and he specified anything other than Vari- 


able Spanned (VS) records (error 214); 
THCFCOMH/IHCECOMH checks each I/O list item 
to see if it exceeds buffer size (error 
213). If one of these errors is detected, 
control is passed to IHCERRM. 


If extended error handling is in effect, 


control returns from IHCERRM to its caller,. 


which does the following: 


220. 


processing of unformatted . 


are 


e conditions 219 or 220. -- IHCEFIOS 
returns to its original caller at the. 
error displacement. (The error displa- 
cement is 2 bytes beyond the address 
originally passed to it in register 0; 
the normal return point is 6 bytes 
beyond the address Originally passed in 
register 0.) 


®¢ condition 214 == TE 
corrective action is. 
the Operation iS a read, IHCEFIOS 
ignores the input/output request and 
returns to the error displacement. 
Otherwise, it changes the record format 
to vS and continues execution. | 


user-supplied 
indicated or if 


-@ condition 213 -- IHCECOMH ignores’ the 
list item request, and any further list 
item requests for this read or write. 


If an end-of-file is detected when 
IHCFIOSH/IHCEFIOS issues a CHECK macro, its 
EODAD routine gains control. It branches 
to the user's END= address if one exists. 
If not, it branches to IHCERRM. Without 
extended error handling, this is a terminal 
errore With extended error handling, con- 
trol returns to IHCEFIOS after error mes- 
sage and traceback printing, and possible 
user corrective action. IHCEFIOS T-closes 
the data set, and returns to its original 
caller at Ns error displacement. 


detected 


If an input/output error is 
when IHCFIOSH/IHCEFIOS issues a CHECK 
macro, its SYNAD routine gains control. It 


issues a GETMAIN for extra space, and then 
issues a SYNADAF macro, which puts relevant 
information into the area. (If extended 
error handling exists, IHCEFIOS has’ the 
associated data set reference number con- 
verted and places it into the error 
message-~218.) IHCFIOSH/IHCEFIOS next asks 
data management to accept the data in 
error, and restart the IOB chain. IHCERRM 
is then called. Without extended error 
handling, the error message and traceback 
printed, and then IHCERRM branches to 
the user's ERR= address if there is_ one, 
and to the IBEXIT section of IHCFCOMH if 
there was not. With extended error handl- 
ing, IHCERRM goes to the _ user's opticn 
table exit routine if there is one and, in 
any case, prints out the error message and 
traceback. Then it branches to the user's 
ERR= address, if there is one. If not, it 
returns to IHCEFIOS, which continues pro- 
cessing if the user supplied his own corre- 
ctive action; if not, IHCEFIOS returns to 
the error displacement of the routine that 
originally called it. 


SEQUENTIAL READ/WRITE WITH FORMAT 


These operations are the same as for 
sequential read/write without 
except IHCFCOMH/IHCECOMH must scan and 
interpret the associated format specifica- 
tion, and control the conversion and move- 
ment of list items accordingly. _ | 


Processing the Format Specification 


OPENING SECTION: Upon return from the 
initialization section of IHCFIOSH/ 
IHCEFIOS, IHCFCOMH/IHCECOMH begins examin- 


ing the format specification, the address 
of which is passed as an argument in the 
initial branch from the compiler-generated 
code. The format specification may be one 
of two types: one 
statement in the FORTRAN source program; or 
an array that the user has filled in with 
format information during execution (often 
referred to as object-time format specifi- 
cation). In the former case, the compiler 
has already translated the statement into 
an internal code. In the 


format information exists in its EBCDIC 
form, just as it would in a FORMAT 
statement. | 

In the case of an object-time format 


specification, IHCFCOMH/IHCECOMH must pick 
up the array contents and process | 
they are in the same form as a format 


specification processed by the compiler. 


IHCFCOMH/IHCECOMH does this using the TRT 


instruction and its table TRTSTB. 


The translated format codes, and their 
meanings to IHCFCOMH/IHCECOMH, are listed 
in Table 10. 


Appendix F: 


format, | 


declared in a FORMAT | 


latter, the ~ 


them so. 


In both cases, IHCFCOMH/IHCECOMH now 
begins scanning the format information. It 
readS it -- saving the control information 
-- until it finds the first conversion code 
(or the end of the FORMAT statement). Then 
it exits to the compiler-generated code. 


LIST ITEM CALLS FOR READ  REQU When 
IHCFCOMH/ is entered for the first list 
item, it determines from the conversion 


code which section of the conversion rou- 
tine IHCFCVTH to call. It passes informa- 
tion from the format specification, (such 
as scale and width), information about the 
list item (such as its address), and buffer 
address and length. IHCFCVTH, and its 
associated subroutines, do both the conver- 
sion and the moving of the data from buffer 
to list item location or vice versa. 


In general, after a 


conversion routine 
has processed a list item, IHCFCOMH/ 
IHCECOMH determines whether or not that 


routine can be applied to the next list 
variable or array element (if an array is 
being processed). LTHCFCOMH/ IHCECOMH — 
examines a field count in the format speci- 
fication that indicates the number of times 
a particular conversion code is to be 
applied to successive list variables or 
elements of an array. be - ° 


If the conversion code is to be repeated 
and if the previous list item was a vari- 
able, IHCFCOMH/IHCECOMH returns control to 
the main program. The main program again 
branches to IHCFCOMH/IHCECOMH and passes, 
as an argument, the main storage address 
asSigned to the next list item. 
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If the conversion code is to be repeated 
and if an array is being processed, 
IHCFCOMH/ITHCECOMH computes the main storage 
address of the next element in the array. 
The conversion routine that processed the 
previous element is then given control. 
This procedure is repeated until either all 
the array elements associated with a spe- 
cific conversion code are processed or end 
Of logical record is detected (error 212). 
In the latter case, control is passed to 
IHCERRM.« | 
is not to be 


If the conversion code. 


repeated, control is ‘passed to the scan 
portion of IHCFCOMH/IHCECOMH to continue 
the scan of the format specification. If 


the scan portion determines that a group of 
conversion codes is to be repeated, the 
conversion routines corresponding to those 
codes are applied to the next portion of 
the input data. This procedure is repeated 
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if negative, it is the value plus | 


i-byte value of number of digits after the decimal point. | — | 


: 


until either the group count is exhausted 
or the input data for the READ statement is 
exhausted. 


If a group of conversion codes is not to 
be repeated and if the end of the format 
specification is not encountered, the next 
format code is obtained. For a control 
type code, control is passed to the asso- 
ciated control routine to perform the indi- 
cated operation. For a conversion type 
code, control is returned to the compiler- 
generated code if the previous list item 
was a variable. The compiler-generated 
THE FCOMH/ THCECOMH 
and passes, aS an argument, the main 
storage address assigned. to the next list 


item. Control is then passed to the conv- 
ersion routine associated with the new 
conversion code. The conversion routine 


then processes the data for this list item. 
If the data that was just converted was 
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placed into an element of an array and if 
the entire array has not been filled, 
IHCFCOMH/IHCECOMH computes the main storage 
address of the next element in the array 
and passes control to the conversion = rou- 
tine associated with the new conversion 


code. The conversion routine then pro-. 


cesses the data for this array element. 


If, in the midst of its processing, 


IHCFCOMH/IHCECOMH finds that it has emptied 
the buffer it calls IHCFIOSH/IHCEFIOS to 
issue another READ macro instruction. 


If the scan portion encounters the end 
of. the format specification and if all the 
list items are satisfied, control returns 
to the next sequential instruction within 
the compiler-generated code. This instruc- 
tion (part of the calling sequence to 


IHCFCOMH/IHCECOMH) branches to the closing. 


section. If all the list items are not 
Satisfied, control is passed to the input/ 
output interface to read (via the READ 
macro instruction) the next input record. 


LIST ITEM CALLS FOR WRITE REQUEST: 


IHCFCOMH/IHCECOMH processing is Similar to 


that for a read request. The main. dif- 
ference is that the conversion routines 
obtain data from the main storage addresses 
assigned to the list items rather than from 
an input buffer. The converted data is 
them transferred to an output buffer. If 
all the list items have not been converted 
and transferred prior to the encounter of 
the end of the format specification, con- 
trol is passed to the IHCFIOSH/IHCEFIOS 
routine. JIHCFIOSH/IHCEFIOS writes (via 
the WRITE macro instruction) the contents 
of the current output buffer onto the out- 
put data set. | 


Formatting control for the remaining 
list items is’ then resumed at the group 
count of the left parenthesis corresponding 
to the last preceding right parenthesis, 
or, if none exists, from the first left 
parenthesis. | 


If ITHCFCOMH/IHCECOMH detects an error in 
the format specification (condition 211), 
it calls IHCERRM.  £ £Standard corrective 
action in the case of extended error handl- 
ing is to treat the invalid character as a 
terminal right parenthesis and continue 
execution. 


CLOSING SECTION: If the operation is a 
read request, the closing section simply 
returns control to the main program to 
continue execution. If the operation is a 

write requiring a format, the closing sec- 
tion branches to. the IHCFIOSH/IHCEFIOS 
routine. IHCFIOSH/IHCEFIOS writes (via the 
WRITE macro instruction) the contents of 
the current input/output buffer (the 
final record onto the output data set. 
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IHCFIOSH/IHCEFIOS then returns control to 
the closing section. The closing section, 
in turn, returns control to the compiler- 


generated code. 


‘DIRECT ACCESS READ/WRITE WITHOUT FORMAT 


Unformatted reading and writing for 
direct access data sets is handled by 
IHCFCOMH/ IHCECOMH and IHCDIOSE/IHCEDIOS. 
The procedure is similar to that for 
sequential data sets. The compiler- 
generated object code calls IHCFCOMH/. 
IHCECOMH once for initialization, once for 
closing, and once in between for each item 
(variable Or array) in the I/70 list. 
IHCFCOMH/IHCECOMH calls IHCDIOSE/IHCEDIOS 


once for initialization, once for closing 


(if it is a write request), and as many 

times in between as the input/output data 
requires. The actions of IHCFCOMH/IHCECOMH 
are identical to those for sequential 
unformatted read and write operations. The 
only exception is that IHCDIOSH/IHCEDIOS is 
called in place of IHCFIOSH/IHCEFIOS. 


Initialization Branch 


When IHCDIOSE/IHCEDIOS is given control, 
it checks the entry in IHCUATBL correspond- 
ing to the indicated data set reference 
number to see if the data set has been 
opened. If. not, IHCDIOSE/IHCEDIOS con- 
structs a unit block for that data set in 
an area acquired by a GETMAIN, and places a 
pointer to it in the IHCUATBL entry. (This 
unit block, which is slightly different 
from ones created by IHCFIOSH/IHCEFIOS, is 
diagrammed in Figure 21.) 


IHCDIOSE/IHCEDIOS next reads the Job 
File Control Block (JFCB) via a RDJFCB 
macro instruction. The appropriate fields 
in the JFCB are examined to determine if 
the user included a request for track 
overflow and a BUFNO sSubparameter in his DD 
statement for this data set. If he did, 
they are inserted into the DCB skeleton in 
the unit block. If BUFNO was not included 
or was Other than 1 or 2, a value of 2 is 
inserted in the DCB skeleton. IHCDIOSE/ 
IHCEDIOS next examines the data set dispo- 
Sition field of the JCFB. If the data set 
is new and the requested operation iS a 
write, IHCDIOSE/IHCEDIOS must first format 
the data set before it can do the actual 
writing. 


FORMATTING A NEW DATA SET: IHCDIOSE/ 


IHCEDIOS modifies the JFCB so that the 
disposition is old, and fills in the fol- 
lowing fields in the DCB in the unit block: 


-DCB Field 


BUFNO X* 02° Two buffers 

NCP x'02° Two DECBs 

DSORG X'4o? Set for DSORG=PS 

MACR X*0020° Normal BSAM WRITE > 

OPTCD Set to X'00' or x*20° 
depending upon whether 
chained scheduling was not 
Or was specified on the DD 
card as obtained from the 
JFCB. 

DDNAME Set to FTnnF001, where ‘nn'‘ 


is the DSRN. 


Then an OPEN macro instruction, using BSAM, 
is issued (TYPE=J). The record length 
field, buffer address field, and DCB 
address field are filled in the DECB's. 
Then IHCDIOSE/IHCEDIOS issues’ sufficient 
WRITE macro instructions for fixed 
unblocked blank records to format the 
track(s). Record length and number’ speci- 
fications are taken from the DEFINE FILE 
parameter list pointed to by IHCUATBL. 


The TRBAL field is used during BSAM 
writing to calculate whether there is 
enough room on the track for additional 
records after it has written the required 
number of fixed-length records. If the 
track is not full, data management does not 
create an RO record and the OS utilities 
cannot process the data set. Therefore, if 
the track is not full, the library writes 
aS many extra records as necessary until 
the track is complete. 


The data set is then closed. The DCB is 
modified in the following way in order that 
it may be re-opened for BDAM and the actual 
writing. 7 


DCB Field New Setting for BDAM OPEN 
NCP X*00* Reset for BDAM 
DSORG X'Q2' DSORG=DA 
MACR K*.29" BDAM update 

and check 
MACR + 1 x'28!' BDAM WRITE by ID 
OPTCD x* 01" BDAM relative 


block address. 


The procedure then is the same as opening 


an old data set (see below). 


DATA SET WHOSE DISPOSITION IS 


OPENING A_D _wW _DISPOSITION IS 
OLD: The data set is opened for BDAM, with 
the UPDAT option. In its open exit rou- 
tine, IHCDIOSE/IHCEDIOS supplies default 
values (from the IHCUATBL entry) for those 
omitted by the user. After the open, 
IHCDIOSE/IHCEDIOS inserts into the DECB‘s 


the address(es) of the buffer(s) obtained 
during control block opening. 


After doing this, or if the data set is 
already opened, IHCDIOSE/IHCEDIOS performs 
the following actions: . 


write request. 


e Write: Upon initial branch, IHCDIOSE/ 
IHCEDIOS does no writing at this time, 
but only fills the buffer with zeros 
and passes buffer address and buffer 
length back to IHCFCOMH/IHCECOMH so the 
latter may begin moving in the list 
items. 


e Read: Upon initial branch, IHCDIOSE/ 
IHCEDIOS gets the relative record numb- 
er requested by the user, which has 
been passed along by IHCFCOMH/IHCECOMH. 
IHCDIOSE/IHCEDIOS examines the buffer 
to see if the record is already pre- 
sent. (This will be the case if the 
user previously requested a FIND for 
this record.) If not present, 
IHCDIOSE/IHCEDIOS issues a READ macro 
and, in either case issues a CHECK. 
After updating the associated variable 
in the parameter list to point to the 
record following the one just’ read, 
IHCDIOSE/IHCEDIOS returns to IHCFCOMH/ 
IHCECOMH, passing the buffer address 
and length. 


Successive Entries for List Items 


WRITE OPERATION: When IHCFCOMH/IHCECOMH © 
has filled the buffer with list items, it — 
branches 
IHCDIOSE/IHCEDIOS obtains 
the relative record number from the para- 
meter list passed along by IHCFCOMH/ 
IHCECOMH, and writes the record out via a 
WRITE macro instruction. It updates the 
associated variable in the parameter list 
to point to the record following the_ one 
just written. If single buffering is being 


used, it checks the write and returns to 
-IHCFCOMH/IHCECOMH. If double buffering is 
being used, it postpones the check until 


its next call, and returns the address of 
the other buffer to ITHCFCOMH/IHCECOMH. 


READ OPERATION: IHCDIOSE/IHCEDIOS handles 
any further read requests from IHCFCOMH/ 
IHCECOMH exactly as for the first (without 
checking for the data set being open). 


Final Branch 


THCFCOMH/IHCECOMH calls 


WRITE OPERATION: 
out the final 


IHCDIOSE/IHCEDIOS to write 
buffer. 


IHCFCOMH/IHCECOMH returns 
code without 


READ OPERATION: 
to the compiler-generated 
calling IHCDIOSE/IHCEDIOS. 
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to IHCDIOSE/IHCEDIOS indicating a * 


Error Conditions 


EET OD Canoes AES TOD AEE Ne INET 


If IHCDIOSE/IHCEDIOS detects an input/ 
output error condition, it performs ina 
manner similar to IHCFIOSH/IHCEFIOS by 
issuing a SYNADAF macro, using the resul- 
tant information to build a 218 error 
message, and passing control to IHCERRM. 


IHCDIOSE/IHCEDIOS will also identify at 


one time or another the following error 
conditions: 
231--the data set indicated by the 
caller is sequential rather than 
| direct. 
232--the record number requested is 
out of data set range. 
233--the indicated record length 
, exceeds 32K-1. | 
236--the read requested is for an 


uncreated data set. 
237--the specified record length is 
incorrect, , 


In all these cases, IHCDIOSE/IHCEDIOS sets 
up the error message data and passes con- 
trol to IHCERRM. 


DIRECT ACCESS READ/WRITE WITH FORMAT 


Requests for direct access' reads and 
writes with format are handled by IHCFCOMH/ 
IHCECOMH, with the assistance of IHCDIOSE/ 
IHCEDIOS and IHCFCVTH. The actions of 
IHCDIOSE/IHCEDIOS are exactly the same _ as 
for unformatted direct access reads and 
writes. The actions of IHCFCOMH/IHCECOMH 
are exactly the same as for sequential read 
and write requests with format, except it 


calls IHCDIOSE/IHCEDIOS instead of 
IHCFIOSH/IHCEFIOS. 
FIND 

Implementation of the FIND statement is 


very Similar to implementation of the open- 


ing branch for a direct access read 
(explained above). Control is passed from 
the compiler-generated code to IHCFCOMH/ 
IHCECOMH and on to IYTHCDIOSE/IHCEDIOS. 


data set if 
to see if the 


IHCDIOSE/IHCEDIOS opens” the 
need be, and then checks 
record is already in the buffer. If it is, 
IHCDIOSE/IHCEDIOS updates the associated 
variable. If not, it issues a READ macro. 
Then it returns through IHCFCOMH/IHCECOMH 
to the compiler-generated code. This READ 
begins filling the buffer. It is not 
checked until the next entry to ITHCDIOSE/ 
IHCEDIOS for this data set. 
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READ AND WRITE USING NAMELIST 


handled 
assistance of 


Namelist reading and writing is 
by  ‘IHCNAMEL, with the 
IHCFIOSH/IHCEFIOS |. and ITHCFCVTH. — The 
compiler-generated object code branches 
Only once .to IHCNAMEL (to entry point 
FRDNL# for reads and to entry point FWRNL# 
for writes), passing the address of the 
namelist dictionary containing the user's 
specifications. IHCNAMEL uses this dic- 
tionary information to direct its opera- 
tions, calling IHCFIOSH/IHCEFIOS to do the 
actual reading: or writing, and the appro- 
priate sections of IHCFCVTH to convert data 
and move it from buffer to user area or 
vice versa. 3 


From the point of view of IHCFIOSH/ 
IHCEFIOS and IHCFCVTH, a namelist read or 
write is no different than any other for- 
matted sequential read/write operation. 
IHCNAMEL calis  IHCFIOSH/IHCEFIOS once to 
initialize the data set and once to close 
it, and as many times in between to read or 
write as the namelist data requires. 
IHCNAMEL calls IHCFCVTH as many times as 
the namelist data requires. bs 


which is the 
user's NAMELIST 


The namelist dictionary, 
compiled version of the 
Statement, consists Of a 2-word namelist 
name field (right-justified and padded to 
the left with blanks), and as many entries 
as there were items in the NAMELIST defini- 
tion. There are two types of entries: one 
for variables, and one for arrays. They 
are illustrated in Section 1, "“Namelist 
Tables." | 3 ae 


Read 


IHCNAMEL first stores the END= and ERR= 
addresses, if they exist, in the proper 
locations in IHCFCOMH/IHCECOMH. This makes 
them available to IHCFIOSH/IHCEFIOS and 
THCERRM if end-of-file or an input/output 
error occur. 


IHCNAMEL searches through the data read 
by IHCFIOSH/IHCEFIOS looking for the name- 


list name that is located in the dic- 
tionary. When it locates the namelist 
name, it picks up the next data item It 


now searches through the dictionary 
entries, looking for a matching variable or 
array name. When the name is located, 
IHCNAMEL obtains the associated specifica- 
tion information in that entry. 


Processing of the constant in the input 
data now begins. Each initialization con- 
stant assigned to the variable or an array 
element is obtained from the input. record. 


The appropriate conversion: 
selected according to the type of the 
variable or array element. Control is then 
passed to the conversion routine to convert 
the constant and to enter it into its 
associated variable or array element. 


Note: One 
variable. A 


constant iS required for a 

number of constants equal to 
the number of elements in the array is 
required for an arraye A constant may be 
repeated for successive array elements if 





appropriately specified in the input 
record. — : : 
The process is repeated for the second 


and subsequent names in the input record. 
When an entire record has been processed, 
the next record is read and processed. 


Processing is terminated upon recogni- 
tion of the &END record. Control “is . then 
returned to the calling routine within the 
load module. 


Write 


INHCNAMEL takes the namelist name from 
the dictionary, puts it in the buffer, and 
has IHCFIOSH/IHCEFIOS write it out... The 
processing of the variables and arrays 
listed in the dictionary then begins. 


The first variable or array name in the 
dictionary is moved to an output buffer 
followed by an equal Sign. The appropriate 


conversion routine is selected according to. 


variable or array elements. 
then passed to the conversion 
routine to convert the contents of. the 
variable or the tirst array element and to 
enter it into the output buffer. A comma 
is inserted into the buffer following the 
converted quantity. If an array is being 
processed, the contents of its second and 


the type of 
Control is 


subsequent elements are converted, using 
the same conversion. routine, and placed 
into the output buffer, separated by com- 


mas. When all of the array elements have 
been processed. or if the item processed was 
a variable, the next name in the dictionary 
is obtained. The process is repeated for 
this and subsequent: variable or array 
names. 
record length is 
record is. written 
he normal 


If, at any time, the. 
exhausted, the current 
and processing resumes. in the 
fashion. | : | 


When the last variable or array has been 
processed, the contents of the current 
record are written, the characters &END are 
moved:to the buffer and written, and con- 
trol is returned to the calling routine 
within the load module. 
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Error Conditions 


ITHCNAMEL | ealls THCERRM if it cannot ae 
a name in the ‘dictionary (error 222), if a 
name exceeds permissible length (221), if 
it- cannot: locate the required. equal sign in 
the input data (223), or if a subscript is 


included for a variable or is out of range — 


for an orey (224). 


STOP AND PAUSE (WRITE-TO-OPERATOR) 


Stop 


Control is passed by the  compiler- - 
generated code to the FSTOP section of: 
THCFCOMH/IHCECOMH. This section determines 
1f there is a. user message attached. If. 
not, it simply branches to the MIBEXIT 
section of IHCFCOMH/IHCECOMH to terminate 
load module execution, If there is a= 
message, the FSTOP section issues the mes- 
Sage to the console via Svc 35. It then 
branches to the IBEXIT section to terminate 
load module execution. 


passed by the compiler-: 
generated code to the FPAUS ‘section of: 
ITHCFCOMH/ ITHCECOMH. FPAUS issues a SVC 35 
including the user's message or identifier, 
or "00000" if there was none. It then: 
issues a WAIT to determine when the reply: 
has been transmitted. After the operator 
or terminal user replies, IHCFCOMH/IHCECOMH. 
returns control to the compiler-generated 
code. 


Control is 


BACKS PACE 


Control is passed from the compiler- 
generated code to the FBKSP section of 
THCFCOMH/IHCECOMH, which neoeey control to 
IHCFIOSH/IHCEFIOS. 


For unblocked records, IHCFIOSH/IHCEFIOS 
issues a physical backspace (BSP) to posi- 
tion to the desired record. If 2 buffers 
are used, it: must: backspace. twice to 
account © for having read -a record ahead,,. 


Before backspacing an output dataset all 
WRITE ~ 


requests are:checked and an endfile 
mark is written by issuing:a T-CLOSE. -. If 
the record form is V, it. reads the record 


and examines the Segment Descriptor Word to 


determine if it has found: the first -seg- 
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it has, it issues another back- 
space. If it has not found the first 
segment, 2 backspaces are issued until the 
first segment is obtained, in which case it 
need only issue a final backspace. 


ment. lf 


For FB and VB records it must keep track 
of the location within the block of the 
record it wants. For the case of blocked 
records a BACKSPACE statement does not 
necessarily imply issuing a physical back- 
Space request. A physical backspace is 
only required when the preceding logical 
record desired is in the block preceding 
the block presently in the buffer. 
IHCFIOSH/IHCEFIOS determines the length of 
the block read by subtracting the residual 
count in the CCW from the DCB blocksize. 
This information is used in calculating the 


proper logical record in the buffer to 
Satisfy the FORTRAN BACKSPACE, Spanned 
records may require searching back through 


more than one physical record. 


returned to  IHCFCOMH/ 
returns to the main 


Control is 
IHCECOMH, which 
program. 


REWIND 


code 
section of 


The compiler-generated object 
passes control to the FRWND 
IHCFCOMH/ IHCECOMH, 
IHCFIOSH/IHCEFIOS. 


IHCFIOSH/IHCEFIOS issues a CLOSE macro 
with the REREAD option for the indicated 
data set. This has the effect of rewinding 
it. A FREEPOOL macro is issued to release 
the buffer space. Control returns through 
ITHCFCOMH/IHCECOMH to the main program. 


END~ FILE 


Zontrol is passed by the compiler- 
generated object code to the FEOFM section 
of IHCFCOMH/IHCECOMH, which passes control 
to ITHCFIOSH/IHCEFIOS. 


If the previous operation for this data 
set was a read, IHCFIOSH/IHCEFIOS sets the 
DCBOFLGS bit to dummy a write operation. 


It issues a CLOSF macro with type T. This 
effects the writing of the end-of-file 
mark. (A ‘T-CLOSE' rather than a full 


CLOSE is issued in order 
subsequent BACKSPACE requests.) A FREEPOOL 
macro is issued to release the buffer 
Space. Return is through IHCFCOMH/IHCECOMH 
to the compiler-generated code. 


to handle any 
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which passes control to 


Statement Number (ISN), : 
it into hexadecimal and inserts it into its 


ERROR HANDLING 
The library is designed to handle the 
following error conditions: 


e some compiler-detected source statement 
errors 


e library-detected errors 
e some program interrupts 
e scheduled load 
termination 


module abnormal 


e some user-defined and user-detected 
errors (only if extended error handling 
has been selected) 


Library operations for interrupts and for 
errors it detects itself depend on whether 
the extended error handling facility was 
selected at program installation time. 


The following library modules are 
cerned primarily with error handling: 


con- 


e IHCADJST 

e IHCERRM 

e THCFINTH/IHCEFNTH 

© IHCFOPT 

e ITHCIBERH 

e IHCSTAE 

e IHCTRCH/ IHCETRCH 
. © THCUOPT 


In addition, IHCFCOMH/IHCECOMH is used for 
initialization, loading, and termination; 
IHCFCVTH is used for converting error mes- 
sage data; and IHCFIOSH/IHCEFIOS is used 
for printing error messages out. 


COMPILER- DETECTED ERRORS: IHCIBERH 


When the compiler examines and trans- 
lates the user's source statements, it may 
recognize one to be faulty, and nonexecut- 
able. At the corresponding location in the 
object code, the compiler inserts a_ branch 
to the library program IHCIBERH. The load 
module then executes in its usual fashion 
up to this point, when IHCIBERH gains 
control. | 


If the faulty statement has an Internal 
IHCIBERH translates 


error message--230. It also picks up the 


name of the user routine containing the 
faulty statement, and adds it to the mes- 
Sage. After IHCERRM is utilized to have 


the message printed out, IHCIBERH goes to 
the IBEXIT section of IHCFCOMH/IHCECOMH to 
have load module execution terminated. 


PROGRAM INTERRUPTS 


Part. of the library's initialization 
procedure is to issue a SPIE macro instruc- 
tion, informing the system that the library 


wishes to gain control when certain program 


interrupts occur. The SPIE, issued by 
ITHCFCOMH/IHCECOMH, specifies library ccon- 
trol for the following interrupts: 


6--specification* 

9--fixed-point divide 
11--decimal divide 
12--exponent overflow 
13--exponent underflow 
15--floating-point divide 


The exit routine address specified for all 
of the above is ARITH#, the beginning of 
DTHCFINTH/ IHCEFNTH. (If interrupts 2, 3, 4, 
5, or 7 occur for the load module, the 
System begins abnormal termination proces- 
Sing. Codes 8, 10 and 14 are disabled when 
the task gains control, so these interrupts 
never occur.) | | 


IHCFINTH/IHCEFNTH receives control from 
the system, which passes the address of the 
Program Interrupt Element (PIE) in register 


1. IHCFINTH/IHCEFNTH first saves the 
interrupted program's registers 3-13 (the 
system saves only 14-2 in the PIE). 
IHCFINTH/IHCEFNTH next examines the old 


Program Status Word (PSW) in the PIE to see 
if the interrupt was precise or imprecise, 
and, if the latter, whether single or 
multiple. (Imprecise interrupts are 
explained more fully in the publication IBM 


‘Order No. 
This information is inserted 

message--210. The specific 
is then determined. 


and Data 
GC28- 6646, ) 
in the error 
interrupt type(s) 


Action for Interrupts 9, 11, 12, 13, and 15 


ITHCFINTH/IHCEFNTH sets the switch OVFIND 
or DVCIND in IHCFCOMH/ IHCECOMH to indicate 


that one of the three divide checks or 
*Issued only if the user selected the 
boundary alignment option at program 


installation time. 


called to 


overflow or 
(These 


exponent 
occurred. 
by the routines 


underflow has 
Switches are referenced 
IHCFOVER and IHCFDVCH., ) 
When extended error handling is not in 
effect, IHCFINTH takes the following corre- 
ctive actions: | . 


9--nothing 
11--nothing | | 
15--if the operation is 0.0/0.0, the 
answer register(s) is set to 0.0; 
if the operation is X.Y/0.0 
(X.Y#0.0), the answer register(s) 
is set to the largest possible 
floating-point number | 
12--the result register(s) is set to 
the largest possible floating-point 
number | 
13--the result register(s) is set to 
0.0; if the underflow resulted from. 
an add or subtract operation, the 
condition code in the old PSW is 
set to 0. | 


Note that for corrective actions with 12, 
13, and 15, it is necessary for IHCFINTH to 


first determine if the faulty instruction 
contains single or double precision 
operands. | | 


IHCFCVTH is called (twice) to convert 
the error message contents, and IHCFIOSH is 
print it out. Then IHCFINTH 


returns to the system interrupt handler, 
and load module execution eventually 
resumes at the instruction 


following the 
one that caused the interrupt. 3 

When extended error handling has been 
selected, IHCERRM is called to determine if 
the user desires his own corrective action 
for this error. (This procedure is 
described in the section “Extended Error 
Handling" below.) If no user action is 
specified, the standard actions described 
above are followed. In either instance, 
IHCERRM has the error message printed out. 


ee OEE eS CRED CREE RD NS RE SERED ES SE cD GE ES ES ee ee aes ome 


When a specification interrupt has 
occurred, IHCFINTH/IHCEFNTH loads IHCADJST, 
if not already loaded. After preparing the 
error message, it branches to INCADJST 
passing the PIE and other information. 


There is a great variety of error condi- 
tions that can cause a specification inter- 
rupt. (They are explained in the publica- 
tion IBM System/360: Principles of Opera- 
tion, Order No. A22-6821.) IHCADJST is 
designed to correct only one--the misalign- 
ment of operand data in core. For any 
other condition, IHCADJST causes an abnor- 
mal termination by cancelling the _ SPIE, 
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backing up the PSW pointer to the instrus- 
tion that caused the original peteEEVe ne. 
and returning to the system. 


7. When IHCADJST determines that it has a 
data boundary alignment problem ‘to correct, 
it calls IHCFINTH/IHCEFNTH .to have’ the 
error message (210) written § out. Next 
IHCADJST issues a new SPIE, for protection 
(4) and addressing (5) excepti.as,. so that 
if. an interrupt occurs while it is trying 
to fetch a copy of the . operand data, its 
own special section-~-PAEXCPT--will gain 
control. If one of. these exceptions does 
occur, PAEXCPT calls IHCFINTH/IHCEFNTH to 
have the error message written, and then 
causes 
above. 


After IHCADJST has properly aligned the 
data in a temporary. storage location and is 
ready to try to re-execute the original 
instruction, it issues yet another SPIE 
(overlaying the previous) for interrupts 4, 
7, 9, 11, 12, 13, and 15. If re-execution 
of the. original instruction is. successful, 
and the R1 fieid of the instruction re- 
executed was 14, 15, 0, or 1, IHCADJST puts 
the new contents of that register into the 
PIE. If the condition code was changed by 
the re-execution, the new condition code is 
put into the PSW located in the PIE. If 
the instruction re-executed was a ST, STE, 
or STD, the data is moved. to the correct 
location in. the load module... The original 
load module SPIE is re-established, and 
control is returned directly to the super- 
visor, rather than via IHCFINTH/IHCEFNTH. 
Note that the correction of data misalign- 
ment is only temporary; the permanent. loca- 
tions of user venrautce remain the same. 


If re- -execution of the onginal instruc- 
tion causes a second interrupt, control is 
given. to EXCPTN in IHCADJST. For code 7, 
IHCFINTH/IHCEFNTH is called to have the 
error message written, and IHCADJST then 
causes abnormal termination in the manner 
described above. For the other exceptions, 
the original PIE is reconstructed, the 
Original SPIE re-established, and. control 
passed back to IHCFINTH/IHCEFNTH to process 
this new interrupt in its usual fashion. 


LIBRARY-DETECTED. ERRORS 


routines 
flaws. 


A number of the library 
-vamine their operational data for 
#In- the case of instruction vecestganenc. 

when it is determined the next instruction 
is also misaligned and will cause abnormal 
‘termination just as well, the PSW pointer 
-is not changed. . Fags 3 
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abnormal termination as described 


Sists of routine names in the 


‘begins with the 


routine detecting the error. 


*Errors 211-214, 


For example, most of the mathematical rou- 
tines check to see if the arguments are 
within specified ranges; IHCFCVTH, in some 
cases, sees whether the data it is asked to 
convert is actually in the form specified. 


When a library routine finds an error, 
it sets up a branch to  IHCERRM. If 
extended error handling has been selected 
for the library, this iS a separate module. 
If not, it is simply the entry point name 
for module IHCTRCH (and module IHCERRM does 
not exist). Without extended error han- 
dling, library-detected errors are almost 
always treated as. terminal conditions. 


Without Extended Error Handling 


IHCTRCH is passed the number of the 
error condition and the message. if one is 
to be printed for this particular case.* 
IHCTRCH's functions are to have: the error 
message printed and, more significantly, to 
create the traceback map. and have it 
printed. IHCTRCH employs IHCFCVTH to con- 
vert .information to printable decimal and 
hexadecimal format, and: IHCFIOSH to do the 
actual printing. Then IHCTRCH calls the 
IBEXIT section of the IHCFCOMH to terminate 
load module execution. Condition 218 is an 
exception if the user has specified an ERR= 
parameter on his READ source statement. In 
this case, IHCTRCH picks’ up this address 


from IHCFCOMH and passes control to it. 


The traceback information printed « con- 
load module 
internal calling sequence, the ISN of each 
branch instruction, and each routine's 
registers 14-1. In most cases, the map 
routine that called the 
library module that detected the error, 
then lists the routine that called that 
caller, and so .on_ back to the compiler- 
generated main program. In the case of the. 
mathematical routines, however, the trace- 
back map begins with that mathematical 
_IHCTRCH. gets 
the map information by using register 13 as 


a starting point and working its way back 


through the linked save areas. Because 
some library routines (ée.g., IHCFCOMH) do 
not use standard saving procedures, the 
EEeetny can become rather complicated. 


-IHCTRCH terminates the — trace when it 
finds it has done one of three things: 


1. reached the compiler-generated main 
routine — | 7 


217, 219, 220, and 231-237 
have only IHCxxxIl printed ‘out, without any 
text. 


2... reached 13 levels of call 


3. found a calling loop © 


In the second and third cases, it prints 
in all cases. 


‘TRACEBACK TERMINATED', and 
prints the main program entry point. | 
IHCTRCH goes immediately to. the IBEXIT 
section of 
is entered a second time. 


if an input/output error occurs while 
IHCFIOSH is trying to print IHCTRCH's 
output, Es 4 : | : : 


With. Extended Error Handling 


When a library routine. detects. an: error 
error handling is avaiiable,. 


and extended 


it branches to the error monitor routine 
IHCERRM. The operation of this routine is 
explained below in the section “Extended 


Error Handling Facility." 


ABNORMAL TERMINATION PROCESSING 


When the load module: has been scheduled 
by the system for abnormal termination, the 
library attempts to have any output buffer 
contents written out. 


During load module initialization, 
THCFCOMH/IHCECOMH issues a STAE macro, spe- 
cifying that if the load module is ever 
scheduled for abnormal termination, the 
address  EXITRTN1 in) IHCFCOMH/IHCECOMH 
should be given control by the system. 


When EXIifRTN1 does gain control, it 
loads IHCSTAE from the link library and 
branches. to it, passing along the system 


input/output status codes it received, 
These are: | 
Code (in sie 
Register 6) Meaning 
0 Active input/output was 
quiesced and is restorable © 
4 Active input/output was 
| halted and is not restorable 
8 No active. input/output at 
abnormal termination time 
12 No space available for work 


area 


 YHCSTAE (looks at this code and deter- 
mines which action it will take. 


IHCFCOMH for termination if it 
“This can happen. 


all. If =the 


Codes_4 and 12 


After using IHCFCVTH to convert the 
abnormal termination code (either system-or 
user) and the load module PSW into hexade- 
Cimal, IHCSTAE inserts them into its error 
messages (240), and issues the messages via 
WTO macro instructions. Then it returns to 
the supervisor, indicating (with a0 in 
register 15) the abnormal termination is to 
be completed. 


Codes 0 and 3 


After using IHCFCVTH to convert the 
abnormal termination code (either system or 
user) and the load module PSW into: hexade- 
cimal, IHCSTAE inserts them into its mes-_ 
sages. Then, IHCSTAE returns to the super- 
visor, indicating with a 4 in register 15 


that a retry attempt (RETRY in IHCSTAE) is 


wanted. When this section gains control, 
it first issues another STAE macro instruc- 
tion specifying a new exit routine, so that 
in the event of a new abnormal termination 
condition arising, looping will not occur. 
Next, the system's STAE work area is tested 
to see whether there is active restorable 
input/output or no input/output active at 
former, SVC 17 is issued 


(RESTORE macro) to prepare for the resump- 
tion of the load module's. input/output 
activity. | | : | 


In both cases,. IHCERRM is called to 
print message 240 and .a traceback map. 
Before calling IHCERRM, however, IHCSTAE 
searches through. the chained save areas 
(beginning with the supervisor's) to deter- 
mine whether or not the abnormal termina- 
tion condition will prevent the traceback 
map from listing the routine causing the 
abnormal termination; if it will, IHCSTAE 
appends a statement to this effect in its 


error message. 


If extended error handling is not in 
effect, IHCTRCH (entry point IHCERRM) exits 
to the IBEXIT section of IHCFCOMH/IHCECOMH. 
If extended error handling is in effect, 
IHCERRM returns to IHCSTAE, which calls the 
IBEXIT section of IHCFCOMH/IHCECOMH. ‘The 
IBEXIT section calls IHCFIOSH/IHCEFIOS to 
complete pending output requests--that is, 
flush the buffers. (This is the normal 
load module termination process.) 
ITHCFCOMH/IHCECOMH finally returns to the 
Supervisor. 


In the event of a second abnormal ter- 
mination condition occurring, control is 
given to EXITRTIN3 in IHCSTAE. No retry is 
attempted. | Messages are issued: via WTO 
macro instructions, and control is returned 
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to the supervisor <+o 
termination. 


EXTENDED ERROR HANDLING FACILITY 


Three routines are centrally involved 
with extended error handling operation. 
They are: 


1. IHCUOPT--the option table 


2. IHCFOPT--the routine available to the 
user to reference and modify the 
option table : 


3. IHCERRM--the routine that handles the 
errors according to the option table 
entries : 


In addition, IHCETRCH 
traceback maps. (When extended error han- 
dling has not been selected, IHCFOPT does 
not exist at all, IHCERRM does not exist as 
a module but only as an entry point in 
IHCTRCH, and IHCUOPT is only 8 bytes long.) 


is used to produce 


ES EP ETE CEES SE A Soy 


The format of the option table is illus- 
trated in Figures 22 through 24. The table 
is referenced by displacement. It is 
sequential, but begins (after a _ preface) 
with error 207--the lowest library error. 
There is an entry for every number from 207 
to 301, although the library recognizes no 
error condition for some of them -- e.g., 
239 (they are reserved for future use). 
Thus, the entry for error 258 is 
(258-207+1)x8 bytes into the table (allow- 
ing for the preface). A few library error 
numbers (900-904) are not in the table. 


Certain values are 
option table at system generation time. 
These original values are listed in Figure 
25. The user has the power to alter some 
of these values temporarily--that is, alter 
the copy in main storage for the duration 
of the load module--by using FORTRAN source 
Statements. All the library error entries 
except 230 and 240 can be altered. 


EES DS EE OED STS SUES EE eS GRY AE GES SERPS se 


The user's source statement requests for 
referencing and altering the option table 
are handled by IHCFOPT, which is’ branched 
to directly by the compiler-generated code. 
IHCFOPT has three entry points for its 
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complete abnormal. 


inserted in the 


three 


functions: 
ERRSET. | 


ERRSAV, ERRSTR, and 


ERRSAV_AND ERRSTR: These two functions are 
quite simple. They are passed an error 
number and an address. ERRSAV takes a copy 


of the requested error number entry from 
the table and places it at the indicated 
address. ERRSTR takes the new 8-byte entry 


from the indicated user address and inserts 
it in the table, overlaying the original 
entry. | | 


ERRSAV and ERRSTR both first check to 
see that the error number is within the 
table range. If it is not, they issue 
message 902, employing IHCFCVTH and 
IHCEFIOS in the process. ERRSTR also 
checks bit 1 of byte 4 of the old table 
entry to make sure modification is permiss- 


ible. If it is not, it issues message 903, 
with the help of IHCFCVTH and IHCEFIOS. 
Return is to the calling program in all 
cases. | 

ERRSET: ERRSET also modifies table 
entries, but is more flexible than ERRSTR. 


It is passed either five or six parameters, 

and takes the following actions: 

e The error number: a reference only. 

e A__new_ limit count _for_entry field one: 
contents are moved in as is, unless the 
count is greater than 255, in which 
case the field is set to 0, or unless 


the count is 0, in which case no action 
is taken. : 


two contents are moved in 
unless they are negative or zero. If 
they are negative, the field is set to 
O; if they are 0, no action is taken. 


as is, 


e Traceback requested or suppressed: if 
1, bit 6 of entry field four is turned 
Off; if 0, it is turned on; if any 


other number, no action is taken. 


e A_user exit routine address, or absence 


thereof, for entry field five: the 
value is moved in as is. 
e (Optional parameter) - Either an error 


1 error 212, a request for print 


control: in the first case, all 
entries from the lower number to the 
higher are altered as indicated; in the 
second case, if a1, bit 0O of field 
four is set to 1, if not atl, it is 
set to 0. 


ERRSET checks to make sure that the error 
number entry or entries indicated are 
within the tabie range. If not, it issues 


message 902, using IHCFCVTH and IHCEFIOS., 
ERRSET also checks to make sure that the 
entry or entries permit modification. If 
they do not, it issues message 903 
IHCFCVTH and IHCEFIOS. 


Error Monitor--IHCERRM 


The error monitor is called in the 


following three cases: 


1. When a library module has discovered 
an error condition during its proces- 
Sing (entry point IHCERRM) 


2. When the user‘s program has detected 
one of the user-defined errors (302- 
899) and wishes to handle it according 
to his option table entry (entry point 
ERRMON) 


3. During normal load module termination 
| processing, tO give the error count 
summary (entry point IHCERRE) : 
In the first two cases, the monitor 
consults the corresponding entry in the 
option table IHCUOPT to determine what 
actions it will take for this particular 
error condition. 


error 


After using the error number passed to 


it to locate the corresponding option table 
entry, the error monitor updates the error 
count field and compares it to the limit 
field. If the limit is now exceeded, it 
begins the termination process. This 
involves having IHCEFIOS print out message 
900 and the error message passed by the 
caller (if the option table indicates it is 
desired), and having IHCETRCH produce the 
traceback map (if the option table so 
indicates). Finally, the IBEXIT section of 
IHCECOMH is. given control. (The error 
monitor may be entered again to give the 
error summary. See “Error Summary.") 


If the error count limit is not yet 
exceeded, the error monitor has the caller 
error message and the traceback map pro- 
duced (if the table so indicates), using 
IHCEFIOS and IHCETRCH, respectively. Then 
it sees whether or not a user exit routine 
is specified. If it is, IHCERRM branches 
to it passing along data supplied by the 
routine that detected the error. The 
nature of this data depends on the error 
detected. 


routine is required to return 
to the error monitor, indicating that it 
has either performed corrective action 
itself (a 1in the first parameter), or 
wants standard library corrective action (a 
0 in the first parameter). The error 


The user 
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using 


ERROR SUMMARY: 


monitor issues a message reporting on this 
Status, and then returns to its original 
caller, passing the correction code, The 
caller either resumes its normal proces- 
Sing, Or doés its standard correction 


before continuing. 


If the error monitor finds no user exit 
address, it returns to the caller request- 
ing standard correction. 


SPECIAL CONDITIONS: The error monitor will 
not allow recursive usage. If it is 
entered a second time before its current 
processing is finished, it issues message 
901 and begins the termination procedure. 
The error monitor also checks to make sure 
the error number specified is within the 
option table range; if it is not, it issues 
message 902. 


The error monitor performs an additional 
step when it finds the error to be 218. In 
this case, after going to the user exit 
routine if there was one, IHCERRM deter- 
mines from IHCECOMH if the user has spec- 
ified an ERR= address on his READ source 
statement. If so, IHCERRM branches to it. 


For error 218, the error monitor issues 
a FREEMAIN macro instruction to free the 
message area the calling routine acquired. 


The summary routine (entry > 


IHCERRE) simply loops through the option. 
table, finding those entries for which | 
errors have occurred during load module. 
execution, and putting the error numbers 


and their accumulated counts in the mes- | 
Sage. It uses IHCFCVTH for conversion and 
IHCEFIOS for printing. If IHCEFIOS has 
identified an error condition for the 
object error unit, the summary is’ skipped. 


IHCETRCH performs in the same manner as 
IHCTRCH, with these three exceptions: 


1.  IHCETRCH is called by IHCERRM, rather 
than directly by the error-detecting 
routine. : 


2. .HCETRCH does not have the error- 
detecting routine's message printed 
out, Since this is done by IHCERRM. 


3. IHCETRCH can also be called by the 
user, through a source statement call- 
ing its entry point ERRTRA. A trace- 
back requested in this way is not 
necessarily connected with any error 
condition. IHCETRCH returns to the 
user program. 
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Table 11. IHCFCVTH Subroutine Directory 


| apres or bearers TD OD OED ee ee eee ee ae eS ee a ee ee, Sa See Se ns i ah cee 


| Subroutine} . Function 

}---------- $------- ---------------- ~--------- 

] FCVAI  |Reads alphameric data. 

|  FCVAO |Writes alphameric data. 

| FcvclI |Reads complex data. 

| Fcvco |Writes complex data. 

} FCVDI |Reads double precision data with an external exponent. 
| FCVDO {Writes double precision data with an external exponent. 
| FCVEI |Reads real data with an external exponent. 

| FCVEO |Writes real data with an external exponent. 

| FCVFI {Reads real data without an external exponent. 
| FCVFO |Writes real data without an external exponent. 
| FCVGI |Reads general type data. 

| FCVvGOo |Writes general type data. 

| FCVII |Reads integer data. 

| FCVIO jWrites integer data. 

| FCVLI jReads logical data. 

{| FCVLO |Writes logical data. 

| FcvziI |Reads hexadecimal data. 

| FCVZO |Writes hexadecimal data. 

Let eee: Nestea eh ae ea eae ia esas eet at 

CONVERSION 


Routine IHCFCVTH, the library conversion 
routine, is called by IHCFCOMH/IHCECOMH to 
convert user input/output data under FORMAT 
control, by IHCNAMEL to convert user input/ 
output data under NAMELIST control, and by 
service routines (such as [IHCFDUMP. and 
IHCDBUG) and error handling routines (such 
as IHCERRM and IHCTRCH) to convert output 
data into printable (EBCDIC) hexadecimal 
and/or decimal form. | 


IHCFCVTH is divided into 
subroutines (see Table 11). Each subrou- 
tine is designed to convert a particular 
type of input or output data. The library 
routine calling IHCFCVTH selects which con- 
version operation it wants, and branches to 
the appropriate subroutine. 
routine passes the address of the existing 
data item, the address at which to place 
the result, the length, scale factor, and 
decimal point location of the existing data 
item, and other related information. 


a number of 


then converts and moves 
and returns to its caller. 


The subroutine 
the data item, 


MATHEMATICAL AND SERVICE ROUTINES 


A TID CREED ARS UEP eh AOE RES CRED OY EO AD SE CEO AS) LAE CEE EE OTE OSE UD CED GD eS 


The library contains a large number of 


mathematical routines, and some service 
routines. When a -particular routine has 
been requested by the user in his source 


program (by entry point name), or when the 
compiler .has recognized an implicit need 
for a mathematical function, it is branched 
to directly from the compiler-generated 
code. . : . 
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logic of these routines. is 


The calling 


MATHEMATICAL ROUTINES 


The mathematical routines are generally 
independent of the other library programs 
{except when they detect errors or cause 
arithmetic-type program exceptions). ‘They 
perform their calculations, possibly with 
the assistance of another mathematical rou- 
tine or two, and return .directly to the 
compiler-generated code. The internal 
documented in 
the publication IBM System/360 Operating 
system: FORTRAN IV Se oe ematical 
and__Service Order No. GC28- 


6818, under the acer "Algorithms." 


SERVICE SUBROUTINES 


IHCFDVCH (Entry Name DVCHK) 


The function of IHCFDVCH is to test the 
Status of the divide check indicator switch 
(DVCIND--located in IHCFCOMH/IHCECOMH) and 
return an answer in the location specified 
in the call. This switch is turned on (set 
to X*FF® by the library's interrupt handler) 
when it finds a divide exception has 
occurred. IHCFDVCH inserts a 1 in the 
calling program's answer location if the 
Switch is on, or a2 if it is off.* The 
answer location is the argument variable in 


*Before checking the switch, both IHCFDVCH 
and IHCFOVER issue the special no- 
operation BCR 15,0, which drains pipe-line 
models (e.g., Models 91 and i195) to 
ensure sequential execution. © 


the Original FORTRAN statement CALL 
DVCHK(arg). Its address is pointed to by 
Register 1 when IHCFDVCH gains control. 


If the DVCIND switch is-on, IHCFDVCH 
turns it off (set to x'00'); if off, it is 
left off. IHCFDVCH returns to the calling 
program. | og 


LHCFOVER (Entry Name OVERFL) 


IHCFOVER tests for overflow and under- 
flow, and performs in a manner similar to 
IHCFDVCH. The switch it tests is OVFIND -- 
which is also found in IHCFCOMH/IHCECOMH, 
and set by the library interrupt handler. 
OVFIND set to X'FF!' indicates overflow has 
occurred, X'01' indicates underflow, xX'00' 
indicates neither. IHCFOVER sets the call- 
er's answer location to 1 for overflow, 3 
for underflow, and 2 for neither. 
turned off; if 


If on, OVFIND is 


off, 
left off. IHCFOVER returns to the calling 
program. = Se ae 


Names _S 0 OS ere 


THCFSLIT performs two functions: sets 
pseudo-sense lights (entry SLITE), and 
status 


the 
reports back to the caller on ener t. 
(entry SLITET). . 


The four pseudo-sense 
bytes in IHCFSLIT labelled SLITES. These 
switches are not connected with any system 
Switches, nor directly with any system 
condition. They are internal to the load 
module, and have meaning only to the FOR- 
TRAN user, who, employing IHCFSLIT, both 
sets and interprets them. 


SLITE either turns 
(sets them to X'00'), 
X° FF*), “When 
SLITE turns 


SETTING THE SWITCHES: 
off all the switches 
Or turns on one (sets it to 
the argument passed to it is 0, 


all switches off. When the argument is 
1-4, it turns on the corresponding switch-- 
that 1S, an argument of 2 turns on the 


second (from left) byte of SLITES. 

TESTING THE SWITCHES: SLITET is passed two 
parameters, the first indicating the parti- 
cular switch to be tested, and the second 
pointing to a location for its answer. 
SLITET returns the answer 1 if it finds the 
switch on, and 2 if it is off. If it finds 
the switch on, it turns” it off; if it is 
off, it is left off. a 
and SLITET 


ERROR CONDITIONS: Both SLITE 


first test their arguments for correct 
range. For SLITE, this must be 0-4; for 
SLITET, 1-4 When an argument is in error, 
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regaining 


lights are four | 


they get the address of the integer output 


section of IHCFCVTH (FCVIO) from IHCFCOMH/ 
IHCECOMH, and branch to it = to have the: 
error message contents converted. Then 


IHCFSLIT branches to IHCERRM (see the sec-— 
tion on te eo errors). 


If extended error Hana ting: is not in 
effect, IHCERRM goes to the IBEXIT section 
Of IHCFCOMH/IHCECOMH to terminate load 
module execution. If extended error han- 
dling is in effect, and IHCFSLIT, urfon 
control, finds the user did no 
special fixup, IHCFSLIT's standard correc- 
tive action is as follows: 


no action at all 
answer returned to caller is 2; 
no switches are changed | | 


SLITE: 
- SLITET: 


IHCFEXIT (Entry Name EXIT) 


Simply branches to the IBEXIT 


IHCFEXIT 
section of IHCFCOMH/IHCECOMH, which then > 
terminates. module execution in its 


load 
usual way. : 


IHCFDUMP (Entry Names DUMP and PDUMP) 


IHCFDUMP's function is to have printed 


out on the object error unit the storage 
contents specified. in the call, in the 
format specified. The absolute storage 
location of each request is also printed 
out. 


The call parameters are in -this form: 


DC AL4(A1) 
DC AL4 (B1) 
. pC ALY (F1) 
DC AL4 (An) 
DC . AL4Y (Bn) 
De 2% XLI'FF', AL3 (Fn) 
where A wana -B are addresses of ue outer 


limits of the storage to be dumped, and F 
is either the integer format number itself, 

or the address of a location containing the 
number. The specifications are: , 


hexadecimal 
LOGICAL#1 
LOGICAL#4 
INTEGER*2 
INTEGER*¥4 
REAL# 4 
REAL#8 |. 
COMPLEX*8 
COMPLEX*16 
jiteral 


Te 


WONHDNEWNRO 
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If the user passes any other number, 
I HCFDUMP chooses 0 (hexadecimal) as a 
default format. 


The procedure is identical for DUMP and 
PDUMP, except for two things: 

e if DUMP finds an input/output correc- 
tive action routine is in process, it 
functions normally; PDUMP, however, 
instead of processing, goes to section 
ERR9I04 in IHCFCOMH/IHCECOMH to print 


error message 904 and to terminate load 
module execution. (An input/output 
corrective action routine in process is 
indicated by the first byte of SAVE in 
ITHCFCOMH/IHCECOMH set to anything other 
than X*FF*,.) | 

e after normal processing, DUMP goes to 
the IBEXIT section of IHCFCOMH/IHCECOMH 
to terminate load module execution; 
PDUMP, however, returns to the caller 
for continued execution. 

IHCFDUMP uses IHCFCVTH and 
THCEFIOS to assist in its 
After getting the address of 
IHCEFIOS from IHCFCOMH/IHCECOMH, 
branches to initialize for printing. It 
next moves a section to be dumped into the 
IHCFIOSH/IHCEFIOS buffer, and determines 
the format type requested.* It passes this 
information to the FCVZO part of IHCFCVTH 
('Z* output), for conversion. Lastly, it 
branches to IHCFIOSH/IHCEFIOS to print out 
the line. IHCFDUMP loops in this’ manner 
until it exhausts the calling list. 


IHCFIOSH/Z 
operations. 
IHCFIOSH/ 

IHCFDUMP 


If, during the printing, IHCFIOSH/ 
IHCEFIOS indicates it has encountered an 
input/output error, IHCFDUMP skips the re- 
mainder of its work. 


IHCDBUG 18s 
generated 


called by the compiler- 
object code to implement most 
user DEBUG requests. Generally, IHCDBUG 
assembles debug information and uses 
IHCFIOSH/IHCEFIOS to write it out. IHCDBUG 
may also have occasion to use IHCFCVTH (for 
data conversion), IHCNAMEL (to produce DIS- 
PLAY requests),  IHCUATBL (to obtain the 
default object error unit number), = and 
THCFCOMH/IHCECOMH (in which to store user 
registers). | 


— ow om om om oe a a om ew ow oe oF @ om o® Oo ow a> = 


*IHCFDUMP expects tl.e format type requested 
to correspond to the format of the data in 


‘main storage. Therefore, asking it to 
print out an INTEGER variable in REAL 
format, for example, will result ina 


garbled dump. 
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ITHCDBUG has a 
DEBUG#--which is 


Single 
the 


entry point-- 
head of a branch 


table. This table is outlined in Table 12. 
Table 12. IHCDBUG Transfer Table 

iver ae be ey Me ee ee ee ae ee ee 1 
|Dis- |Branches| : | 
|place- | to | 

Jment |Section | Function of Routine | 
t------+--~----- }------------------------- 
| Q |TRACE |Pass label of statement| 
j | Jto be traced | 
| | | 
| 4 |SUBTREN |Pass subprogram name on | 
| | [entry | 
| | | | 
i 8 |SUBTREX |Pass ‘RETURN' on subpro-| 
| | |gram exit | 
| | | | | 
} 12 {UNIT JInitialize data set | 
| | | reference number for | 
| | Joutput 

| | | 

} 16 |INITSCLR|Pass data for initialized 
| | | variable 

| | 

| 20 | INITARIT|Pass data for initialized 
] | jarray element 

| | 

|} 24 |INITARAY|Pass data for initialized 
| | Jarray 

| 

} 28 |SUBCHK |Pass data on referenced 
| | jarray element 

| | | 

| 32 |TRACEON |Turn on trace switch 

| | 

} 36 =|TRACEOFF|]Turn off trace switch 

| | 

| 40 |DISPLAY |Display referenced items 

| | 

| 44 |STARTIO |Begin input/output 

| | | operation 

| 

| 48 | ENDIO [End input/output 

| | |operation 

eee ae eee tects he ate ee 


be eevee cemee cmem omen eee Gee eee ee eee SS eee cee ee eee ee gee = come oe ewe oe eee oe oe 


In addition to the 13 routines. listed in 
the branch table, IHCDBUG uses the follow- 
ing subroutines: 


e OUTITEM, which puts a data item into 
DBUFFER . 
® OUTNAME, which puts the name of an 


array or variable into DBUFFER 

e OUTINT, which converts an integer to 
EBCDIC 

® OUTFLOAT, which puts a floating-point 
number into DBUFFER 

e OUTBUFFER, which controls 
operation for DBUFFER 

e ALLOCHAR, which moves a character to a 
save area 

e FREECHAR, which 
from a save area 

e OUTPUT, which transfers DBUFFER to 

ITHCFIOSH/IHCEFIOS for printing 


the output 


extracts a character 


The following items in IHCDBUG are 
initialized to zero at load module execu- 
tion time: 


-@ DSRN, the data set reference number 
® TRACFLAG, the trace flag 
e IOFLAG, the input/output 

flag 
e DATATYPE, the variable type bits 


in progress 


Whenever information is 
output, it is placed in a 77-byte area 
called DBUFFER. The first character of 
this area is permanently set to blank to 
specify single spacing. The next seven 
characters are the string--DEBUG--to pro- 
vide a label for the output. 


various IHCDBUG 


The functions of the 
sections are: 
TRACE . 
If TRACFLAG is off, control is 
returned immediately to the caller. 


Otherwise, the characters "TRACE are 
moved to DBUFFER, the section OUTINT 
converts the statement number to EBCD- 
Ic and places it in DBUFFER, and 
control is passed to OUTBUFFR. 


SUBTREN 
The characters ‘SUBTRACE! and the name 
of the program or subprogram are moved 
to DBUFFER and ae ~branch is made to 
OUTBUFFR. 


SUBTREX 
The characters *‘SUBTRACE *RETURN** are 
moved to DBUFFER and a branch iS made 
to OUTBUFFR. 


UNIT 
The unit number argument is placed in 
DSRN and the routine returns to its 
caller. 


INITSCLR 
The data type is saved, the location 
of the scalar is computed, subroutine 
OUTNAME places the name of the scalar 


in DBUFFER, and a branch is made to 
OUTITEM. 

INITARIT | 
This routine saves the data _ type, 
computes the location of the array 
element, and (via the subroutine OUT- 


NAME) places the name of the array in 
DBUFFER. It then computes the element 
number as follows: 


XXX=((YYY-2ZZZ) /AAA) +1 


where: _ 
XXX is element number 
YYY is element location 
Z2ZZ is first array location 
AAA is element size 


assembled for 


_ ENDIO 


and places a left parenthesis, the 
element number (converted to EBCDIC by 
subroutine OUTINT), and a right paren- 


thesis in DBUFFER following the array 
name. A branch is then made to 
OUTITEM. 

INITARAY 
If IOFLAG is on, the character X'FF'* 


is placed in DBUFFER, followed by the 
address of the argument list, and a 
branch is made to OUTBUFFR. Other- 
wise, a call to INITARIT is 
structed, and the routine loops 
through that call until all elements 
of the array have been processed. 


SUBCHK 
The location of the array element is 
computed. If ait falls within the 
array boundaries, control is returned 
to the caller. If it 1s outside the 
array boundaries, SUBCHK places the 
characters ‘SUBCHK* into DBUFFER, and 
computes the element number. OUTINT 
converts this number into EBCDIC and 


moves it into DBUFFER. OUTNAME moves 
the array name into DBUFFER. Finally, 
OUTBUFFR is called. 

TRACEON 
TRACFLAG is turned on (set to non- 


zero), and control returned to caller. 


TRACEOFF | : 
TRACFLAG is turned off (set to zero), 
and control returned to caller. 


DISPLAY 3 
If IOFLAG is on, the characters 


‘DISPLAY DURING I/O SKIPPED' 


are moved to OUTBUFFR. Otherwise, a 
calling sequence for the NAMELIST 
write routine (IHCNAMEL) is con- 
structed. If DSRN is equal to zero, 
the unit number for SYSOUT (in 
IHCUATBL+6) is used as the unit passed 
to the NAMELIST write routine. On 
return from the NAMELIST write, this 
routine exits. 


STARTIO 

BYTECNT is set to 251 to indicate that 
the current area is full, the IOFLAG 
is set to xX*80° to indicate that 
input/output is in progress, the 

CURBYTLC is set to the address of the 
SAVESTR1 (where the location of the 
first main block will be), and the 
routine exits. (See the discussion of 
ALLOCHAR. ) 


The IOFLAG is saved in TEMPFLAG and 
IOFLAG is reset to zero so that this 
section may make debug calls that 
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Con» 


result in output to a device. If no | value (passed in R2) is equal to zero, 


information was. saved during the the character '0Q' is placed in DBUFFER 
input/output, this routine exits. and the routine exits. If it is less 

| | os * a than zero, a minus sign is placed in 
If information was saved, section DBUFFER. The value is then converted 
FREECHAR 1S used to extract the data to EBCDIC and placed in DBUFFER with 
from the save area and move it to . leading zeros suppressed. The routine 


DBUFFER. FREECHAR does this one then exits. 
character at a time until it finds a cg 

X*15*, indicating the end of the line. OUTFLOAT | 

It then calls OUTPUT to have DBUFFER This Subroutine calls the library 


written out. If FREECHAR finds a module IHCFCVTH to put. the floating- 
X'FF', indicating a full array, it if point number out under G conversion 
calls INITARAY to move the array data with a format of G1i4.7 for. single 
to DBUFFER. | a | ' precision and G23.16 #£for double 
| , | precision. | a : 


If no main storage or insufficient 
main storage was available for saving OUTBUFFR 


information during the input/output, If the IOFLAG in IHCDBUG is set, 
the characters indicating the library input/output 
: | : routines are busy handling some other 
*SOME DEBUG OUTPUT MISSING® - user input/output request, IHCDBUG 
: ea: - must wait until the routines are free. 
are: placed in DBUFFER after all = saved This means it must accumulate and 
information (if any) has been written : store its output data for the time 
out. The subroutine “OUTPUT is then  * peing. To do this, OUTBUFFR calls 
used to write out the message, and ALLOCHAR--once for each character in 
this routine returns to the caller. DBUFFER, and one final time with x°15° 
: | | to indicate the end of the line. 

OUTITEM | 
First, the characters ‘ = * are moved OUTBUFFER checks the IOFLAG. If. it is 
to DBUFFER. Four bytes of data are not set, it then checks the input/ 
then moved to a work area on a double- _ output corrective action switch in 
word boundary to avoid any boundary IHCFCOMH/IHCECOMH. If this switch 
alignment errors when registers are indicates an input/output corrective 
loaded for logical or integer conver- action is in process, OUTBUFFER calls 
Sion. A branch on type then takes the ERR9O4 section of IHCFCOMEH/ 
place. For fixed-point values, the | IHCECOMH to terminate execution. If 
routine OUTINT converts the value to . there is no input/output corrective 
EBCDIC and places it in DBUFFER. A action in process, OUTBUFFR calls OUT- 

branch to OUTBUFFR then takes place. PUT for normal output processing. 
For floating-point values, subroutine ALLOCHAR oe | 
OUTFLOAT places the value in DBUFFER. ALLOCHAR saves the data passed to it 
A branch to OUTBUFFR then takes place. in 256-byte blocks of storage obtained 
| ry by GETMAIN macro instructions. When 
For complex values, two calls. to OUT- BYTECNT is equal to 251, indicating 
‘FLOAT are made -- first with the real the current block is full, a new 
part, then with the imaginary part. A GETMAIN is issued. If. no storage was 
left parenthesis is placed in DBUFFER available, an xX‘'07°, indicating the 
before the first call, a comma after end of core storage, is placed in the 
the first call, and a right parenthe- last available byte position, IOFLAG 
Sis after the second call. A branch is set to full, and the routine exits. 
to OUTBUFFR then takes place. -— Otherwise, the address of the = new 
, block is placed in the last four bytes 
For logical values, a T is placed in a of the previous block, preceded by 
DBUFFER if the value was. nonzero; X37" indicating end of block with new 
Otherwise, an F is placed in the | block to follow. CURBYTLC is then set 
DBUFFER. A branch to OUTBUFFR' then to the address of the new block and 
takes place. | — BYTECNT is set to zero. The character 
| 7 : passed asS an argument is then placed 
OUTNAME | : aa in the byte pointed to by CURBYTILC, 
Up to six characters of the name are one is added to both CURBYTLC and 
moved to DBUFFER. OUTNAME returns’ to BYTECNT, and the routine exits.. 
its caller upon encountering a blank. | | | 
| eae . : FREECHAR , ; | 

OUTINT | | | This: is a closed subroutine. If the 
| This is a closed subroutine. If the current character extracted is X‘37', 
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indicating a 
current block, the next four bytes are 
placed in CURBYTLC and the current 
block is freed. If the current 
character is X‘'07', indicating the end 


of core storage, the block is freed 
and a branch is made to the end 
input/output exite Prasat a the 
current character passed to the 


calling routine and eTeavere is incre- 


mented by one. 


OUTPUT : | 
If DSRN is zero, the SYSOUT unit 
number is obtained from IHCUATBL +6. 


A call is then made to the initializa-~ 
tion section of ITHCFIOSH/IHCEFIOS. 
Upon return, OUTPUT transfers DBUFFER 
to the IHCFIOSH/IHCEFIOS buffer, and 


calls the write section of IHCFIOSH/ 
LTHCEFIOS. If IHCFIOSH/IHCEFIOS indi- 
cates an input/output error, IHCDBUG 


ignores the rest of the current DEBUG 
request. 


TERMINATION 


Every compiler-generated program 
with a branch to the FSTOP section of 
ITHCFCOMH/IHCECOMH. This section is a ter- 
mination procedure that: 


passed it 


e puts the return code into 
register 15. | io © 2. y 

° if extended error handling has been 
specified, calls IHCERRM to have the 


error summary produced. 

® calls IHCFIOSH/ IHCEFIOS to sledge 
sequential files (IHCFIOSH/IHCEFIOS in 
turn calls IHCDIOSE/IHCEDIOS to close 
any direct access files). 

e deletes IHCADJST, if it has © 
loaded. 7 

° cancels the SPIE, restoring the old 
PICA if there was one. 

® either 


been 


ae cancels the STAE and returns to the 
supervisor if IHCSTAE has not been 
loaded (1i.e., no abnormal termina- 
tion has been scheduled) A if 

b. cancels the STAE and issues.) an 
ABEND macro instruction if entry is 
From IHCSTAE 


The 
both for the normal end of load module 
execution and for most instances of 
library-initiated premature termination. 
The only exceptions occur in IHCSTAE, 
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new block follows the | 


ends 


above termination procedure is used. 


when control is sometimes returned directly 


to the supervisor, bypassing the above 
PEOCCOUre. | 
ee ee ee Tec eet ee eo 
fonit number (DSRN) fo | | | 
|}being used for current | ; aes ic 
[operation } n* x'16 |4 bytes|- 
See 5 Pie Genelia Cobebaimieetaten terete tetrad 
| ERRMSG | READ. | PRINT | PUNCH | © 
| DSRN2 | DSRN3 | DSRN* | DSRNS |4 bytes| 
See +—-—-~-~~14--~~---4-_--_---}-----+_ 
JUBLOCKO1 fields |4 bytes | 
i sy a nt ea a aa ala esas ee a ce eee ee ay See 4------- 
|DSRNO1 default values? {8 bytes | 
i a ci a ae a se ee cs a ae Oe + eee as 
|LISTO1 field® _|4 bytes| 
[--~------------------------------ f= 82d 
| . ae | 
| ° [| | 
| : [| | 
}--------~------------------------ +~------ { 
{UBLOCKn fieldé |4 bytes | 
ae em Ete nee ney See EE ee RE ee 4. ---~-— 
]DSRNn default values? [8 bytes | 
Gs eet Na a de 4------~- 
JLISTn field® {4 bytes| 


J4n is the maximum number of ‘units that | 
| can be referred to by the FORTRAN LOAD| 
]| MODULE. The size of the unit table is| 
| equal to (8 + n x 16) bytes. | 
}?2Unit number (DSRN) of error output| 
| device. ? | 
}>Unit number (DSRN) of input device for a| 
| read of the form: READ b,list. | | 
|*Unit number (DSRN) of output device for| 





| a print Operation of the form: PRINT | 
b, list. | 
Unit number (DSRN) of output device for| 
a punch operation of the _. form: PUNCH | 
b, list. | 
6The UBLOCK field contains either af| 


pointer to the unit block 
for unit number n if the unit is being| 
used at object time, Or a value of 1 if| 


the unit is not being used. | 


constructed | 


7This field contains DCB default values, | 
if the| 
user does not supply them. They are| 


Only IHCFIOSH/| 
default values from| 


detailed in Figure 19. 
IHCEFIOS gets its 
this field. : | 
unit is defined as a direct| 
access data set, the LIST field contains| 
parameter list that] 
| defines the direct access data _ set.| 

Otherwise, this field contains a value| 

of 1. | 


| 

i 

| 

| 

| 

| 

| 

} 

! 

| which are inserted into the DCB 
| 

| 

| 

| 

| 

| 

| a pointer to the 
| 

| 


 IHCUATBL: 
ment Table 


Figure 18. The Data Set Assign- 
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Table 13. 
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DCB Default Values 


— ee ee See ee ee ee ee eee ee om oe me ee oe oe Om > = oo on a oe =7- ae 


: T , 
| ] Sequential Data Sets | Direct Access Data Sets 1 
[=4--s>> » a ieee qo SS ses 1 amie 12-2 =s- ; ie an Ports eS soos Saye =- == : 
T 

] | | | | | | | LRECL or 

{| ddname | RECFM? | LRECL? | BLKSIZE | DEN | BUFNO | RECEM | BLKSIZE | BUFNO | 
}------------4-------- 4-------- 4--------- }-----4------- }-------}---------------- $------- { 
| FTO3Fxxx | U | -- | 800 } 2 | 2 | FA }The value | 2 | 
| | | ] | | | [specified as the| l 
| FTOSFxxx | FO 80 | 80 } -- | 2 | F [maximum size of | 2 | 
| | { | | | | ] [a record in the | | 
| FTO6Fxxx | UA | 132 | 133 | -- | 2 | F |DEFINE FILE | 2 | 
| - | | | | | | |statement. l 
| FTO7Fxxx | F | 80 | 80 Ls 2 | F | | 2 | 
| I ~ | | | | | | | 

| all others | U | =< | 800 } 2 | 2 | F | | 2 | 
eee eenae eran Ps so pa ae eee 5 emserereerey Series eee Lovecess ae ek eer ea a eT ta eee J 
|*For records not under FORMAT control, the default is VS. | 
ieee records not under FORMAT control, the default is 4 less than shown. : 
re a ee 4 

1 1 

a 2 bytes ----- > <----- 2 bytes ----- > <- byte -> <- byte -> <----+ 2 bytes ------- > 
fee ee re ene pe ee ee ee a Ee a eee 1 
l not used | BLKSIZE i RECFM | BUFNO | LRECL r 
Ca a as a 4+. - +--+ - ~~ + le a in et ae sac a ais Sas I essa ak caps sg aa a Jj 
Figure 19. DSRN Default Value Field of IHCUATBL Entry 
es ee ne Oa ee ee {oor ere 1 
|  ABYTE |  BBYTE | CBYTE |  DBYTE 4 bytes | 
|------------ 4---------4--------------- L------------ }------------ { 
| Address of Buffer 1 | 4 bytes | 
| ---~-- -- nn nnn n= }------------ { 
| Address of Buffer 2 | 4 bytes | 
|--------------------------------------------------- }------------ { 
| Current buffer pointer (Note) | 4 bytes | Housekeeping 
} ------—-------~-------- - —- -- - - - - -- - + - - + $+ +------------ | Section 
| Record displacement (RECPTR) (Note) | 4 bytes | 
}--------------------------------------------------- }------------ { 
| Address of last DECB | 4 bytes | 
| -~------------------------------------------------- }------------ { 
| Mask for alternating buffers. | 4 bytes | 
}--------------------------------------------------- }------------ { 
| DECB1 skeleton section ‘ | 20 bytes | 
}-------------------------y------------ y------------ ------------ { 
| Logical record length i Not used | LIVECNT1 | 4 bytes | 
|--------~----------------1------------ 1------------ }------------ { | | 
| DECB2 skeleton ear | | 20 bytes | Note: Used only for 
|} -------------------------7------------ ¥------------ 4—~--—~--~—---~- | variable-length 
| Work space | Not used | LIVECNT2 | 4 bytes | and/or blocked 
}------------------------- i__---_~----~-- 4-_---~~---~--~—4--~--------- 4 records 
| DCB skeleton section | 88 bytes | 
Cette tettee ee eet eee eee eee ee ei eek iV eae epee ae eee renee J 

Figure 20. Format of a Unit Block for a Sequential Access Data Set 


° ABYTE. 


This field, containing the data 
set type passed to subprogram IHCFIOSH/ 


IHCEFIOS by IHCFCOMH/IHCECOMH, is set 
to one of the following: 
FQ -- Input data set which is to be 


processed under format control. 


FF -- Output data set which is to be 
processed under format control. 


00 -- Input data set which is to be 
processed without format control. 


OF -- Output data set which is to be 
processed without format control. 


BBYTE. This 
are set and examined by 
IHCEFIOS during itS processing. 
bits and their meanings, when Ons 
as follows: 


IHCFIOSH/ 
The 
are 


0 -- exit to subroutine ITHCFCOMH/ 
| IHCECOMH on input/output error 

1 -- input/output error eccuriea 

2 -- current buffer indicator 

3 -- not used 

y-- end-of-current buffer indicator 

5 -- blocked data set indicator 

6 -- variable record format switch 


7 -- not used 


CBYTE. This field also contains bits 
that are set and examined by subroutine 
IHCFIOSH/IHCEFIOS. The bits and their 
meanings, when on, are as follows: 

0 -- data control block opened 

1 -- data control block not T-closed 


2 -- data control block not previously 
opened 


3 -- buffer pool attached 
4 -- data set not previously rewound - 
5 -- not used 


6 -- concatenation occurring; reissue 


READ 


7 --. data set is DUMMY 
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field contains bits that 


Macro Instructions, 


e DBYTE. This field contains bits that 
are set and examined by IHCFIOSH/ 
IHCEFIOS during the processing of an 
input/output operation involving a 
backspace request. The bits and their 
meanings, when on, are as follows: 

0 -- a physical backspace has occurred 

1 -- previous operation was BACKSPACE 

2 -- not used 

3 -- end-of-file routine should retain 
buffers 3 

4-5 -- not used 
6 -- END FILE followed by BACKSPACE 
7 -- not used 


e Address of Buffer 1 and Address of 
Buffer 2. These fields contain poin- 
ters to the two input/output buffers 
obtained during the opening of the data 


control block for this data set. 


e Current Buffer Pointer. This field 
contains a pointer to the input/output | 
buffer currently being used. 


e Record Offset (RECPTR). This field 
contains a pointer to the current log- 
ical record within the current buffer. 


Address of Last DECB. This field con- = 
tains a pointer to the DECB last used. 
e Mask for Alternating Buffers. This 
field contains the bits which enable an 
exclusive OR operation to alternate the 
current buffer pointer. 


(DECB1 AND  DECB2): 


(data event control block) skele- 
blocks of main storage 


DECB SKELETON SECTIONS 
The DECB 


ton sections are 


within the unit block. They have the same 
format as the DECB constructed by the 
control program for an L format of an 


S-type READ or WRITE macro instruction (see 
the publication IBM System/360 Operating 
System: Supervisor and Data _ Management 
Order No. GC28-6647). 
The various fields of the DECB skeleton are 
filled in by subprogram IHCFIOSH; the com- 
pleted block is referred to when IHCFIOSH 
issues a read/write request to BSAM. The 
read/write field is filled in when the OPEN 
macro is being executed. 


This is the LRECL 
It is inserted by 
its open exit 


Logical Record Length: 
of the current data set. 
Ice aang eae ard during 
routine. 


These fields 
input/output 


* LIVECNT1_and__LIVECNT2. 
indicate whether any 
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Operation performed for the data set is 
unchecked. (A value of 1. indicates. 
that a previous read or write has not 
been checked; a value of 0 indicates 
‘that. the previous read or write opera- 
tion on that DECB has been checked.) 


e Work Space. This field is used to 
align the logical record length of a 

variable record segment on ae fullword 
boundary. 


DCB: The fields of this skeleton for DCB 
are filled in partly by IHCFIOSH/IHCEFIOS, 


and partly by the system as a result of an 


OPEN macro instruction by IHCFIOSH/IHCEFIOS. 


Pa a a Grose te Tse = at aa 1 
| i : | not | not |. | 
| LIOTYPE paren yet used |] used | 4 bytes | 
t------- 4——~———-—4L-—~——— 4-—-——- t----------- { 
| meaeans | 4 bytes | 
~~-----y--------------------- 4----------- i 
[STAUsa| | CURBUF | 4 bytes | 
}-------1--------------------- }----------- { 
| BLKREFA 4 bytes | 
~------y--------------------- 4-----------4 
| STATUSB| NXTBUF |. 4 bytes | 
}-------1--~------------------ }---------=-4 
{ BLKREFB | 4 bytes | 
}-----------------------------4----------- { 
| DECBA } 28 bytes | 
}----------------------------- }----------- { 
| DECBB | 28 bytes | 
}----------------------- ~-----}----------- { 
|. DCB | 104 bytes | 
Gesell eee Se oe eee ae estes Spence eee et J 


Figure 21. Format .of a Unit Block for a 
a: Direct Access Data Set 


The meanings of the various. unit block 
fields are outlined below. . 


IOTYPE: This field, ' containing the data 
set type passed to subprogram IHCDIOSE by 
the IHCFCOMH Subprogram, can be set to one 
of the following: 7 


FO -- input data set requiring a format 


FR == output data set requiring a Format 
00 -- input data set not requiring a 
format 
OF -- output data set not requiring a 
| _ format Ge ach 


STATUSU: This field specifies the status 
of the associated unit number. .~ The . bits 
and Serr -meantngs when on are: 


Bit Meaning ae Seay 
0 . data control block for. data 
set is beh for BSAM eae 
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Bit. ...Meaning: erat 


1° error: occurred - 

2 &#&#£«+two bueeers: are heme used 

3 data control block for data 
—.,.gset-is open for BDAM. - 

4-5 10 -- U-format specified in 
re 3 -~ DEFINE FILE. statement 
01 -- E format specified in 
| _ DEFINE FILE statement 
11 -- L format specidied in 


DEFINE FILE ae ene 


6-7. . not. used 


Note: Subprogram IHCDIOSE refers only to 
bits 1, 2, and 3. : 


RECNUM: This field contains the number of 
records in the data set as specified in the 
parameter list for the data set in a DEFINE 
FILE statement. It is filled in by the 
file initialization section after the data 
control block for the data set is opened. 


STATUSA: This field specifies the status 
of the buffer currently being used. The 
bits and ‘their meanings when on are: 


Bit Meaning 
0. READ macro instruction has 
been issued : . 


1 WRITE Keeoo. Saetedction has 
been issued 


2 CHECK macro instruction has 
| been issued 


3-7 not used 


CURBUF: This field contains.the address of 
the DECB skeleton currently being used. It 
is initialized to contain the address of 
the DECBA skeleton by the file initializa- 
tion section of IHCDIOSE after the data 
control.block for the data set is opened. 


BLKREFA: This field contains an integer 
that — indicates either the relative position 
within the data set of the record to be 
read, or the relative position within the 
data set at which the record is to be 
written. : It is.filled .in by either the 
read or write section of subprogram IHC- 
DIOSE prior to any reading or.writing. In 
addition, the address of this field is 
inserted into.the DECBA skeleton by. the 
file initialization section -of. IHCDIOSE 
after the data control pacer for the data 
set is opened. 


STATUSB: This field geet the status 
of the. next buffer to. be used if two 
buffers are ace for this data set 
during data control block . opening. The 
bits and their meanings are the same as 
described for the STATUSA field. However, 
if only one buffer is obtained during data 
control block opening, this field is not 


used. 
NXTBUF: This field contains the address of 
the DECB skeleton to be used next if two 


buffers are obtained during data control 
block opening. It is initialized to con- 
tain the address of the DECBB' skeleton by 
the file initialization section of subpro- 


gram IHCDIOSE after the data control block: 


for the data set is opened. 
only one buffer is 
control block opening, 
uséd. : | 


_ However, if 
obtained during data 
this field is not 


BLKREFB: The contents of this field are 
the same as described for the BLKREFA 
field. It is filled in either by the read 


or the write section of subprogram IHCDIOSE. 


prior to any reading or writing. In addi- 
tion, the address of this field is inserted 
into the DECBB skeleton by the file initia- 
lization section of IHCDIOSE after the data 
contrcel block for the data set is 
However, if. only one buffer is obtained 


during data control block opening, this 
field is not used. “ my 
DECBA SKELETON: This field contains the. 


DECB (data event control block) skeleton to 
be used when reading into or writing from 
the current buffer. 
the DECB constructed by the control program 
for an L form of an S-type READ or WRITE 
macro instruction under BDAM (see the pub- 
lication 


Supervisor and Data: Management __—Macro 
Instructions, Order No. GC28-6647). 


The various fields of the DECBA skeleton. 
by the file initialization 


are filied in. 
section of subprogram IHCDIOSE 
data control block for the. 
opened. 
when IHCDIOSE issues. a 
request to BDAM. For 
operation, 
the address of and the size of the 
to be used for the eperani en: 


after the 
data set is 


read or awrite 


each 


buffer 


DECBB SKELETON: 


buffer. Its contents are -the 
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DCB SKELETON: 


opened. . 


It is. the same form as. 


IBM System/360 Operating System: | 


The completed DECB is referred to. 


input/output 

THCDIOSE supplies IHCFCOMH with | | 

‘le a 2 O98: OF his own error 
| 


The DECBB skeleton is used. 
when reading into or writing from the next ~~ 
same. as. 


Figure 22. 


described for the DECBA_ skeleton. The 
DECBB skeleton.is completed in the. 
manner as described for the DECBA skeleton. 
However, if only one buffer is obtained 
during data control block pen ngs this 
field is not used. 


This field contains the DCB 
(data control block) . Skeleton for the asso- 
ciated data set. It is of the same format 
as the. DCB. constructed: by the 
program for a DCB macro 
BDAM (see the 


Speen neanon under 


Operating System: _ __ Supervisor _ ae _Data 
Management Macro Instructions). 
eee Se ee @ by besser > 
Cee nee eee es Wp e en nae Ree ee eet Bana A ee OO By ee 1 
| PREFACE | 
a ata ad each oe le Sr ere ele See Siar it ad | 
|Entry for library error condition 207 af 
eae a Se ce ara ie la anaes ee ee ier ~-~---4 
|Entry.for library error condition 208... ..|. 
}~----------------------------------------] 
|Entry. for library error condition :209 ie 
basen Se eee ee oe eee a 
le | 
Pa hes ° 7 
a Neda ge A aha, TE COE a : 


a es A ON ee RR A Re ea oe ee ee 1 
[Optional entry for.user error condition |. 
L 302 Ss wine. 26 Sede. Shad, Cie | 
siete teehee ee oe ee ee a J 
|Optional entry for user error condition | 
|__303 ec ee ee ere 
aos Tp | 
| . | 
. _ 
hg be oases leks ae ee ene ee Se ae | 
{Optional entry for user error condition | 
| n-1 | 
pe--e nee n--e 2-22 ----------------------{ 
|OQptional entry for user error condition | 
} on (Note) | | ae | | 
Note: The “user can specify from none to| 





conditions; 
thus n.- can be a maximum of 899. | 


General Form of the 
Table (THCUOPT). 
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Same — 


control... 


1 | 1 | 1 


K{------- ~~ + 4 bytes ---------------- > <- byte -> <- byte -> <- byte -> <-- byte --> 
ge eae apr ee ete a8 ecto tig eR E S ge e 27 oe Me ee a signal Sess 
| Field One | Field | Field | Field | Field | 
| | Two | Three |] Four | Five | 
Ma a a XR poeta 5 eae Sees 5 ee ee ea gE oe J 


> ap i> a ee oO em ow om a Oh a Oe a om © OP 8 0 8 Om 2 oe oe ee Oe oe om oe oe ore = 
oe a a OEE ED aEe cee ames tees cae come GuEe ee eee ee eee ee ee ee ee ee ee ee es ee es ee ee oe oe oe ee oe Se oe ee eee ae eee eee Ge ate ae ae oe ee ee a 


Field Contents 


One: The number of entries in the option table. This is 95 plus the total number of 
user-supplied error conditions. ; 


Two: Bit one indicates whether boundary alignment was selected. 1=yes; 0=no. (Bits 
O and 2-7 are reserved for future use.) 


Three: Indicates whether extended error handling was selected. X'FF*=no; X*'00%=yes. 


Four: Contains a decimal 10. This is the number of times the boundary alignment error 
message will be printed when extended error handling has not been specified. 


Five: Reserved for future use. 


eee ae a ee om me ae em ee re ee ae ee oe oe ae ee ee oe ee om en ee oe ee oe 9 ee ee ee oe 9 em oe ee en me oe ee we om ee a oe we oe en wm oe om ee ww ow mo oe oe wm oe oe ee > ow oe oe ow oe oe oe 


Figure 23. Preface of the Option Table (IHCUOPT) 


1 1 1 1 
<- byte -> <- byte -> <- byte -> <- byte -> <---------------- 4 bytes ------------ a > 
a Toot. oe sae acre a aca tore Re A a rg Pe ee ee eee gt at agile eon 1 
| Field | Field | Field | Field | Field Five | 
| One | Two | Three | Four ] | 
2 ane Rarer eRe pea aeN eo ee Penn as he fn ae eae a J 


<< <a Cae CD em a em EP ee ee ae ee a ame et Ca ee owe eee ee oe ee em Oe ae OO Oe OF ee ee we oe ee oe ee 2 © em ore oe oe oe ore oe om ee om oe Oe ee we oe oe Oe ee oe om Cw om oe ee em oe em ee Oe Oe © Oe ee Oe Oe oe Ow a ee oe oe oe ae oe 


Field Contents 

One: The number of times the library should allow this error to occur before 
terminating load module execution. A value of zero means unlimited occurrence. 
(Trying to set the field to greater than 255 results in its being set to zero.) 


Two: The number of times’ the corresponding error message is to be printed before 
message printing is suppressed. A value of zero means no message is to _ be 
printed. 


Three: The number of times this error has already occurred in execution of the present 
load module. 


Four: Bit Meaning 
0 If control character is supplied for overflow lines, set to 1. 
If control character is not supplied for overflow lines, set to 0. 
1 If this table entry can be user-modified, set to 1. 
If this table entry cannot be user-modified, set to 0. 
2 If more than 255 errors of this type have occurred so that 255 should _ be 


added to Field Three, set to 1. 
If less than 255 errors of:this type have occurred, set to 0. 


3 If buffer contents is not to be printed with error messages, set to l.- 
If buffer contents is not to be printed, set to 0. 
4 Reserved for future use. 
5 If error message is to be printed for every occurrence, set to 1. 
If error message is not to be printed, set to 0. 
6 If traceback map is to be printed, set to 1. 
If traceback map is not to be printed, set to 0. 
7 Reserved for future use. 
Five: The address of the user's exit routine. If one is not supplied (in other words, 


if library is to take its own standard corrections), the final bit is set to 1. 


eee eee ee ere eee eee ee ee ee ee cee ee es ee cen eee cee ee eee Ge ee ee ee a a ee ee ee ee ee ce ee ee ee re ee re ee SLL LLL Oe ee ae ae a a a om om a> a» op 


Figure 24. Composition of an Option Table Entry 
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1 1 , a "hs 
<- byte -> <- byte -> <- byte -> <- byte -> <--~-~-~-....... - 4 bytes --—-~-----~--+--~-~-- 
ain eco 5 rare arias en ee re ) ia aera My EE es eee BT Pere ye pee te apn ee 
| Field | Field | Field | Field | Field Five 
| One | Two | Three | #£Four | 
eee ees 5 eee a Oe em Mehta os agra eo ey eee Das aa a ete ete ee a re, 
Field Contents Me I ee ee ae 
One: Set to 10, except for errors 208, 210, and 215, which are set to 0 (unlimited), 


and for errors 217 and 230, which are set to 1. 


Set to 5, except for error 210, which is set to 10, and for errors 217 and 


1, except for errors 230 and 240 


236, 


generation values are also inserted initially into any user error 


— ee ee ee eee ee ee ee ee ee ee ew a ae we rw rw ae ew ore ee ee ee ee ee ec ee ce rm ce ee es es we ce es ce ee ee a se ee ee es es es we gs es wee ee ws we ee ee es ee ee 


Two: 
.which are set to 1. 

Three: Set to 0. 
Four: Bit Setting 

0 0 

1 

2 0 

3 0 

4 0 

5 0 

6 1 

7 0 
Five: Set to 1. 
Note: These system 

entries. 

Figure 25. 
Table 14. 
r ee ee ee ee oe ce ee oe ew we a a ee T ee eee ee cee ee ee ee ee we ee eee ee we 
| Displacement | Branches to 
| from IBCOM# § } Section 
}------~-------- +--------------- 
| 0 | FRDWF 
| 4 | FWRWF 
| 8 | FIOLF 
| 12 | FIOAF 
| 16 | FENDF 
| 20 | FRDNF 
| 24 | FWRNF 
| 28 {| FIOLN 
| 32 | FIOAN 
| 36 {| FENDN 
| 40 | FBKSP 
| 44 | FRWND 
| 48 | FEOFM 
| 52 } FSTOP 
| 56 |} FPAUS 
l 64 | IBFINT 
| 68 | IBEXIT 
bee eee eee eo Bes Sa et 


Original Values of Option Table Entries 


IHCFCOMH/IHCECOMH Transfer and Subroutine Table 


formatted READ 
formatted WRITE 
formatted list variable 
formatted list array 
formatted READ or WRITE 
nonformatted READ 
nonformatted WRITE 
nonformatted list variable 
I/O list section, nonformatted list array 
Closing section, nonformatted READ or WRITE 
Implements the BACKSPACE source statement 
Implements the REWIND source statement 
Implements the ENDFILE source statement 
Write-To-Operator, terminate job 
Write-To-Operator, resume execution 
Load module initialization 
Load module termination 


Opening section, 
Opening section, 
I/O list Section, 
I/O list section, 
Closing section, 
Opening section, 
Opening section, 
I/O list section, 
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> . . 
. . ‘ ‘ 
. 
‘ 
: ar ed 
+ . < 
a Pec fae a : 








Chart GO. 


FRDWF 


OOOCCA] OO eeEseees NOTE: 
* 


s HE rae 
* SET IOSWF FOR 


HEAD OF 
(SEE TABLE 


* 
* FORMATTED INPUTS 


a ¢ 
$4806 4964646 4048 


80002] HHeCoRETE RS 
° 


* 
* SAVE END= AND * 
sERR= ADDRESSES : 
e 6 


SCHEKESEHOSEOEDEESE 


*, : 
ci 9. SOSSECZIASC SR ESLESS 
* *, *DIOCS# 6 
Po IRE e, YES —8 Hoek ite? -3 
*. ACCESS DATA , *-------- >s OPEN (IF * 
* SE . * NEEDED) AND ¢ 
.. « * READ e 
se. .8 SOSKOSCSHHOHSORES EE 

* NO 


V 
SERCH] Hesesaeese 


*¢FIOCS# ° 
Oe ee ee ee ee eS ee ee 
OPEN. CIF ¢ 
* NEEDED) AND ¢ 


SCTSOSCHHHEHHEOOHS 


IHCFCOMH/ IHCECOMH 


CALLS ARE TO AN 


(Part 1 of 4) 


OFFSET 
WHICH IS THE 
BRANCH TABLE. 


FRDNF 


8 
* SET IOSWF FOR * 
* NON-FORMATTED * 
: INPUT bd 


: J 
SEKTSSESHHSHKETEHKKSE 


SeeeeAUeoesesceses 
e. 


FWRNF 


SHOKIAS SERS OR EDES 
* * 
SET IOSWF FOR * 
NON-FORMATTED * 

OUTPUT * 


2 


*¢ 


* 
SHEMET SHEE HEE SESE 


—— oe OF oe om 9m © oe Oe Om ee Om oe em em oe om Om oe ow 8 ow ow 


SOSSCOHUSCSSe eS eeese 
o 


* 
* SAVE END= AND * 
gERR= ADDRESSES : 


e t 
SHSSSEHHSEHTSS SEES 


* DIRECT * 
*, ACCESS DATA 
¢, SET % 

*, 
>. 


°° NO 


SSSSOHUSESSEseees 


CsgectseneccesecesesUless 
SOS SOE] seceesecee CCOOHEUC SOO EC08 
e e . s 
® SAVE BUFFER °* ® SAVE BUFFEK & 
4 INFORMATION : bd INFORMATION : 
e 6 e e 
LES RRR RRR ERE REE SY SSSHOSHOSHSSEESESESEOS 
FWRWF 
SOeoeFJeseasececes 
@ 9 
¢ SET IOSWF FOR °¢ 
Guseektol hese sesonteses oe se lt eee eter es ¢ FORMATTED * 
° OUTPUT ‘ 
(ERR ER ERR RSPR ERE | 
-%, 
G1 e. OOSEE2 EOC SEOSESE 
e ®@ SCAN FORMAT ¢ 
*®OBJECT-TIME®. v0 ® INFORMATION e 
: RMA 2 Osa Siemens >*SAVING CONTROL e<-- 
Py Py A e SPECIFICATIONS : 
rs .¢ 
-e ° POYTTITITIT TTT ty. 
* YES 


o %, 
COC OHL S Sees ecese _f2 ‘ 
r ° 
. TRANSLATE ° ¢ FIRST ¢, 
e FORMAT $----- . CONVERSION. 
: INFORMATION : ®, CODE ¢ 
Coe sesessesosercs “es ce 
® YES 
COCO T2EN SOS OSES 
®RETURN TO MAIN * 
* PROG. . 
Soeossoeseseses 


wo 
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SHOHECS SHS ESE CEES 
*DIOCS# * 
$- 6-4-6 %-8- 0-4-8 
OPEN (IF * 
NEEDED) AND *¢ 
* READ/WRITE * 
SOHHHS HESSD SESE 


SOHOES SOC HEROES 
*kETURN TO MAIN ¢ 
>s PROGRAM : 


LPR ERES SESS E AE SE) 
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FENDF 
OOFCOA] OOO RES OEES 
® 


e 


* 
e * 
gSET I/O SWITCH : 
® 
SOCHH SED OD ORE OERS 


5 
*. 
Bi ‘ 
.* s 
rs *. READ 
*. READ OR WRITE. *----- 
. .? 
*, .? 
*, @ 
WRITE 
o*, 
D1 «, 
.¢ *, 
-* *. YES 
*. DIRECT ACCESS, #---~-- 
7 .e 
e. .* 
*. .¢ 
¢ NO 


SOOKE] OS eeeeeene 


*FIOCSS#& ° 
S- 0-0 ~0-~6-0-0-0-8 


¢ PUT OUT FINAL ¢*----- 


6 BUFFER ; 
® 
eesesserooveeees 


FILOLN 
OoeOeL Soros eeses 
° ® 


¢ 
con I/O SWITCH 


e 
® 
es 
e 
SCOSSGHHHHTSHSEHOEHSE 


G1 *, 


Hi *, 
® 


$OCOR TL ODEO OCEES SS 


° * 
e MOVE LIST ITEM 


s 

INTO BUFFER * 

e ¢ 
e 


e : 
OFFS SHEEHHEHHHH HS 


OO OKK Seoseseesse 
* * 


*RETURN TO MAIN ; 
* 


LPR ERE REESE SE 


FENDN 
SOCCH AIS COREE SEES 
* * 


s * 
g SET I/O SWITCH - 


e 2 
SHESSHHSSCH SESE SESE 


wwe ee ww ew we 


e, .* 


*, .# 
* NO 


SeeseC2eceesesese 


*FIOCS# * 
@-¢-¢-0-4-6-8-¢-8 
* 


° 
bd CLEAN-UP * 
CY ¢ 


SHHSSSHSSOHESSEHES 


CoeeseH2eeseceoees 


*DIOCS*# bd 
@-¢-¢-0-6- 0-0-9 


--->* PUT OUT FINAL ¢ 


* BUFFER ° 
° * 


SSseseeosesesveses 


SCOCHOEL OC COoSEOS 
e 


* 
~7-?®RETURN TO MAIN ; 


SOSHHH SSH OEE OS 


FIOAN 
COoSe Fre seecoseos 


SET ARRAY 
SWITCH 


® 
e 
e 
* 
s 


SOSHHTEHOOCHHEEOHE 


oi@e 
J2 6, 
.o ° 


.* “eo, 
-->*. DIRECT ACCESS. * 


e bd 


e, .e 
* NO 


SCeeOKPeeeeoeseeee 
* 


sFIOCS# 
e@-0-0~¢-6-6-6-0-8 


° WRITE OUT * 
: BUFFER ° 


5 
SSSHHTSHSEHHSEHHOE SD 


eees 
s e 


->* Jl * 
bd ° 


eess 


Core Hieeseseege 
* 


YES * 
een >*RETURN TO MAIN : 
CERES SER EEE SERS | 

A 


e ° 
YES 


e, ,6 
* NO 


SCOKSCHLZJOSCSoeeeees 


*FIOCS# ° 
$-0-0-6-6-0-6-0-¢ 
° ¢.----— 


: FRESH READ 7 
CORSH Ede SSESEEEES 


OSHS TIOCOCOSSSESSSS 
% 


*p1ocsa 

YES e- ¢-0-0-9-9-~9-8-6 
manne >* WRITE OUT * 
: BUFFER P4 
eeeeeereseseresees 

oven 
* a 

->¢ J1 ® 
* ° 

oees 
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.¢ “e. YES 
So teease >*. DIRECT ACCESS. ¢------ 


SOCOHOCGUOSSESECHHO 
s 


-->¢ e 

¢ FRESH READ ¢ 
s 

[IRE PRRE EERE ESSE SS 
ooe6 

» e 

¢ Hu %-> 

® e 

e606 


eeoeHuseceeoooes 
¢ MOVE CORRECT *& 
*AMOUNT OF DATA * 


-->*FROM BUFFER TO * 


; LIST ADDRESS : 
SHCHEHEES SESE HOSES 


oeeezTycoseoesese 


¢ * 
Sg RETURN TO MAIN : 
COOKSEESEDOSEES 
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Chart | GO. IHCFCOMH/IHCECOMH (Part 3 of 4) 


FSTOP of, 
vals. 


e i ¢ iJ 
-*LOAD MODULE*. NO 


*.IN FOREGROUND. * 


| .¢ 


*. .*% 
* YES 


SOSHE_LOSESOR OSES 


MESSAGE TO 
TERMINAL 


eovot 


* 
* 
¢ 
s 

. ° 

SHSCHHHHECEREOEEOS 


CeeoECCLEsSeseecces 


*IBEXIT * 
$-0~0—6-0-0-6-6-8% 


e TERMINATE * 
: EXECUTION s 
° 


e 
SSSSSHHOEHOHSE OS 


eeeeHlL esceeeore 
8 RETURN TO ¢ 
: SUPERVISOR ; 


LEEPER ER EEE ESE SE | 


243.2 


SOSHEA2SHHSESEHEES 
¢ * 


e * 
PeISSUE WTO MACROS 


s _  @ 
SFSESSSHESHHOSHHEESES 


FIOLF FIOAF 
SCOHCO PIGS SF OSF8OS COKSOPF Jee eesooves 
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Object-Time Library Subprograms 





active character: A significant character 
in the interpretation of a source state- 
ment. Always non-blank except during pars- 
ing of literal or IBM card code infor- 
mation. | 


ADDR: Contains the address portion of the 
current POP instruction. 


ADDRESS (field): A 2-byte item that is 
part of the pointer (indicating an address 
on a roll) and a driver ocean. the 
forcing strength of an operation). : 


An item used to hold a true or 
instructions 


ANSWER BOX: 
false answer for those POP 





which use or return an answer in their 
execution. , : 

BASE: A status variable maintained for 
each roll used by the compiler which con- 


tains the beginning address of that roll 
minus 4, 


Base Table: A list of absolute addresses 
from which the object module loads a 
general register prior to accessing data. 


BOTTOM: A status variable maintained for 
each roll which holds the address of the 
last word on the roll containing 
information. 

Branch Table: A list containing the 
address of each branch target label and 
statement function used in the source 


module. 


A label which is the 
instruction or 


branch target label: 
target of a branch 


statement. 


Central Items: Another name for SYMBOL 1-3 
and DATA 0-5. 


compiler phase: A program consisting of 
several routines written in machine lan- 
guage and/or POP language; each phase per- 
forms a well-defined function in the trans- 
formation of the source module to the 
object module. 


compiler routines: The routines that com- 
prise each phase of the compiler and which 
may be written in machine language and/or 
POP language. | 


CONSTR: Contains the beginning address of 
the data referred to by the compiler 
routines. | 


GLOSSARY 


control driver: A driver in Polish nota- 
tion to indicate types of statements and 
other control functions. | 


CRRNT CHAR: Contains the character (from 
the input statement) that is currently 
being inspected. a 


Contains the column number 


CRRNT_CHAR CNT: ; 
also called 


of the contents of CRRNT CHAR; 
the ‘scan arrow’. 


DATA 0, 1, 2, 3, 4 5: Halfword variables 
(except DATA 5, which is two words’ long) 
used to hold constants used in the source 
module and other data. 


error listing: The ‘display of messages 
indicating error conditions detected in the 
processing of the source module. 


EXIT roll: A special roll used by the 
compiler for maintaining exit addresses 
from compiler routines when a POP subrou- 
tine jump instruction is executed. 


EXTADR: Contains the address of the cur- 
rent “bottom"™ of the EXIT roll. | 
forcing strength: A value contained in the 
driver which indicates the order of the 
indicated operation (e.g., multiplication 
and division operations precede addition 
and subtraction). 


global dummy variable: A dummy argument to 
a SUBROUTINE or FUNCTION subprogram. 


global label: A label used to define a 
program block. These labels may be 
referred to from any point in the program. 


The logical collection of informa- 


group: 
tion maintained on rolls; an entry on a 
roll. 

group size: The number of bytes of infor- 


mation constituting the group on a roll. 


Group Stats: Information maintained for 
each roll used by the compiler; pertains to 
comparative search operations. 


instructions re- 
body 


heading: Initializing 
quired prior to the execution of the 
of the object module. 


IEYALL: _The 


system name for the compiler 
phase Allocate. | y RG 
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TEYEXT: The system name for the compiler 


phase Exit. 


IEYFORT: The system name for the compiler 
Invocation phase. 


The system name for the 


IEYGEN: compiler 
phase Gen. | 
EEYPAR: The system name for the compiler 
phase Parse. 2 : 
LEYROL: The system name for that area of 
the compiler which holds the WORK and EXIT 


rolls and the roll. controls and- SEceP 
stats. 2 
IEYUNF: The system name for the compiler 


phase Unify. 


indirect addressing: 
information held at one location by refer- 


ring to another location which contains the 
address of the value in question. 


INDIRECT BOX: Used to contain the address 
needed in the indirect addressing operation 
performed by the POP instructions. 





INSTR: Contains the "operation code" 
tion of the current POP instruction. 





item: Synonymous with variable. 
jump: Synonymous with branch. 
keep: Indicates the moving of information 


contained on a roll to another’ storage 
location and retaining the original infor- 
mation on the roll. 


LAST CHAR CNT: This item contains’ the 
column number of the last active character, 
ise@s, the active character preceding the 
one currently being inspected. 

A dummy argument to 


a statement function. 


local “label: | A label defined within a 
program block which may be referred to only 
within that block. 


MPAC 1, MPAC 2: ‘Two fullword items used by 
the compiler in ee arithmetic 
operations. 


NAMELIST Table: A table which holas ‘the 
name, address, etc., for each variable 
listed in a single NAMELIST list in the 
source module. | | 


operation driver: A 1-word variable which 
is an element of Polish notation and indi- 
cates arithmetic and logical operations 
designated in source module statements. 
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—PGB2: 


to variables or constants; 


A method of Shtainaae tion of additional information on a roll. 


por- 


OPERATOR (field): A 1-byte item that is 
part of the pointer and driver indicating 
the roll used (pointer) or type of opera- 
tion to be performed (driver). 


optimization: The reduction and re- 
organization. of object code for the 


increased efficiency of the object module. 


Contains the beginning address of 
the global jump table. 


plex: A variable length group on a roll; 
the first word holds the number of words 
exclusive of itself. 


pointer: This item is one element of 
Polish notation used to indicate references 
indicates loca- 


Polish notation: An intermediate language 
into which the source module is translated 
during processing and geneeetson of the 
object module. 

Holds address of the POP 


POPADR: the 


instruction presently being executed. 


POP instruction: A component part of the 
POP language defined as a macro. , 


POP interpreter: A program written in 
machine language for the purpose of execut- 
ing the POP subroutines; labeled POP SETUP. 


POP__jump table: A table used by the POP 
interpreter in transferring control to the 


POP subroutines. Holds addresses of these 
routines. 
POPPGB: Contains the beginning address of 


the machine language code for the POP 


instructions and the POP jump table. 


POPs, POP language: A macro language in 
which mo most of the compiler is written. 


POP subroutines: The subroutines used by 
the POP interpreter to perform the opera- 
tions of each POP instruction. 


program text: The object code produced for 
the object module. 


prune, pruning: A method of removing 
information from a roll, thereby making it 


inaccessible in subsequent operations. 


quote: A sequence of characters preceded 
by a character count; used for comparisons 
with the input data. 


QUOTE BASE: The 


first quote (Parse). 


initial address of the 


recursion: A method of call and recall 
employed by the routines and subroutines of 
‘the compiler whereby routine xX may call 
routine Y which, in turn, calls routine xX. 


The method of making 


releasing rolls: 
roll available 


. information reserved on a 
for use by the compiler. 


reserve mark: The 1-word value placed on a 
roll as a result of a reserve Operation. 


reserving rolls: A method of roll manipu- 
lation whereby information contained on a 
roll | 
operations involving the roll. 


RETURN: Contains the return addresses for 
the POP subroutines. 


roll: A type of table used by the compiler 
whose location and size are changed 
dynamically. 

ROLLBR: Contains the beginning address of 


the base table. 


roll control: A term applied collectively 
to those items used in roll maintenance and 
manipulation. 


roll number: A number assigned ‘to each 
roll ain the compiler for the purpose of 
internal reference. 


roll status items: Those variables 
tained for each roll which contain the 
statistics needed in roll manipulation. 


An area of the compiler 
allocated to the 


roll storage area: 
in main storage that is 
rolls. | 

A word of 


rung: a multiword group on a 


roll. 


Several routines which 
com- 


RUNTIME operations: 
support object code produced by the 
piler. ; 


Save Area: An area of the object module 
ed in linking to and from subprograms. 


E 


scalar variables: Nonsubscripted vari- 


ables. 


remains unaltered regardless of other 


main-— 


translation: 


scan arrow: An item which refers to the 
position of the source statement character 
currently being scanned. 


source module listing: The display of the 
statements constituting the source module. 


storage allocation: The assignment of main 


storage to variables used in the source 
module. 
storage map: The logical organization of a 


program or module and its components” as 
they are maintained in main storage. (This 
map may also be displayed on an output 
device. ) 


Halfword variables used to 
used in the source 


SYMBOL 1, 2, 3: 
hold variable names 
module and other data. 


TAG (field): A i-byte item that is part of 
the pointer (indicating mode and size of 
the object pointed to) and driver (indicat- 
ing mode of operation). 


temporary storage: An area of main storage 
used by the compiler to temporarily main- 
tain information for subsequent use. 

internal to the 


terminal errors: Errors 


compiler causing termination of Compr reer on 


of the source module. 


TOP: A status variable maintained for each 
roll which indicates the new BASE of the 
roll when reserved information is contained 
on the roll. 


traits: The TAG field (uppermost byte) of 
a word on a roll. 


The conversion from one type 
of language to another. 


WORK roll: A special roll used by the 
compiler for maintaining values temporarily 
during processing. 


WRKADR: The address maintained for the 
WORK roll that indicates the last word into 
which information has been stored; the 
"bottom" of the roll. | 


WO, W1,W2, cee? Acronyms used to refer to 
the last groups of the WORK roll. 
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(Where more than one page reference is given, 


active characters | 
definition 259 
description 26 
ACTIVE END STA XLATE routine 
active statements 36,39 
ADCON roll 57,145 
ADDR register 
definition 259 
description 29 | 
address computation instruct 
cross-reference list 139 
address constants 17, 20,52, 
ADDRESS field 
definition 
description 
addressing 
indirect 136,259 
relative 29,138 
ADR CONST roll 
description 
in Exit 56 
in Unify 52 
AFTER POLISH roll 
description 23,161 
in Gen 53,54 
in Parse 37-40,42 
Allocate label lists 
Allocate phase (IEYALL) 
_ cards produced 951 
definition 258 
detailed description 44- 
general description 12 
location in storage 17 
rolls used by 44 
subprogram list 51 
allocation of main storage 
ALTER OPTION TABLE routine 
ALLOCATION FAIL routine 42 


258 
29-30 


159 


ALPHA LBL AND L SPROG routine 
ALPHA SCALAR ARRAY AND SPROG routine 


ANSWER BOX variable 
definition 258 
description 26 
in Parse 38 


AREA CODE variable 45,55,57 


193-19 
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14,39 


ions 


56,57 


6. 


51 


28 
232 


14,45 


, 146 


arithmetic and logical instructions 


130,131,139 | 7 


array 
description 18 
dummy 47,48 


in Allocate 48,49 
listing of 21 
position in object module 
roll 26,47,146 
ARRAY ALLOCATE routine 14,4 
ARRAY DIMENSION roll 150 


17 


5,47 


134,135 


14,45 


ARRAY REF roll 


~ BLOCK DATA PROG ALLOCATION routine 


INDEX 


the major reference appears first.) 


ARRAY PLEX roll 158 
52,159 
ARRAY REF ROLL ALLOTMENT 14,52 
ARAY REF ROLL ALLOTMENT routine 52 
ARRAY roll oe 3 . 
assigning storage for 47 
description 146. 
group stats for 25 
artificial drivers 40 
ASSIGNMENT STA GEN routine 54 
AT roll 54,159 


base addresses 28 
BASE AND BRANCH TABLE ALLOC routine 
14,45, 47 
BASE, BOTTOM, 
base table 
assigning storage for 47 
definition 259 
description 17 
position in object module 17 
use in Allocate 48 
use in Exit 57 
BASE TABLE roll 
description 
in Allocate 
in Exit 56 
BASE variable 23 
definition 259 
BCD roll 45 


and TOP tables 23, 28 


146 
45-48 


14,46 
BLOCK DATA subprogram 
allocation for 46 
Parse processing of 39 
BOTTOM variable 23 
definition 259 
branch table 
assigning storage for 47 
description 18 
position in object module 17 
use in Allocate 47 
use in Exit 56 
BRANCH TABLE roll 
description 150 
in Allocate 47 
in Exit 56 
branch target label 12,18 
BUILD ADDITIONAL BASES routine 14,45,49 
BUILD NAMELIST TABLE routine 14,45,48 
BUILD PROGRAM ESD routine 14,45,46 
BYTE SCALAR roll 47,151 | 
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CALCULATE BASE AND DISP routine 14,45 


CALL LBL roll 149 

central items 
DATA 24,192,259 
definition 259 
description 24 
SYMBOL 24,191,259 | 

CGOTO STA XLATE routine 38 | 

character scanning 26-27 

code producing instructions 134 

CODE roll | 
description 160 
in Exit 56 
in Gen 53,54 
location 22 

COMMON ALLOCATION AND OUTPUT routine 

14,45,47 

COMMON ALLOCATION roll 47,156 

COMMON AREA roll 155 

COMMON data 12 | 

COMMON DATA roll 152 

COMMON DATA TEMP roll 155 

COMMON NAME roll 152 

COMMON NAME TEMP roll 156 

COMMON statements 
allocation for 45. 

COMMON variables | 
allocation of storage for 45 
listing of 21 

compiler 
arrangement 28-29 
assembly and operation of 136 
code produced by 175-183 — 
data structures 22 | 
design of 9° 
flags used 27 
general register usage 28 
initialization of 33 
limitations of 9 
machine configuration for 9 
messages 27 | 
Organization of 10,14 
output from 16 
purpose of 9 
receiving control 33 
relationship to system 19 
rolls used in 140-162 
storage configuration 15 
termination of 33,35 

COMPLEX CONST roll 143 

CONSTR register 
definition 259 
description 28 

control block area (CTLBLK) 227 

control driver 
definition 259 
description 31 
formats of 185-211 

CONVERT TO ADR CONST routine 14,52 

CONVERT TO INST FORMAT routine 14,52 

CRRNT CHAR CNT variable | 
definition 259 
description 26 | 
in Parse 38. 

CRRNT CHAR variable — 
definition 259 
description 26 
in Parse 38 
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data items 24,192, 259 
DATA SAVE roll 145 
data sets 
SYSIN 15,33 
SYSLIN 15,33 
SYSPRINT 15,33 
SYSPUNCH 15, 33 
DATA statements 
allocation for 45 
DATA VAR roll 56,154 
DDNAMES routine 35 
DEBUG ALLOCATE routine 14,45, 49 
decision making instructions 131,132 
DECK option 51 
DIMENSION statement 
allocation for 46 
variables specified on 29 
DISPLAY statement 
NAMELIST table for 18,19 
DMY DIMENSION roll 14, 46,147 
DO loops 
in Allocate 46 
in Parse 39 | 
in Gen 55 
in Unify 12,51,52,53 
DO LOOPS OPEN roll 
description 144 
in Allocation 46 
in Parse 39 
DO LOOP UNIFY routine 53 
DO NEST UNIFY 14,53 
DO STA XLATE routine 38 
DP COMPLEX CONST roll 143 
DP CONST roll 
description 143 
general 25 
drivers 
ADDRESS field 30 
artificial 40 
control 31,185-211,259 
definition of 30 
EOE 40,41 
formats of 185-211 
operation 30,260 
OPERATOR field 30 
plus and below phony 40,41 
TAG field 30 
dummy array 46,47 
dummy dimension 46 


END card 13 

omission of . 39 

produced by Exit 57 
END STA GEN routine 54,55 
ENTRY CODE GEN routine 14,53,54 | 
ENTRY NAME ALLOCATION routine 14,45, 46 
ENTRY NAMES roll 54,147 
ENTRY roll 46 - 
EOE driver 40,41 : | : 
EPILOGUE GEN routine 14,53,54 
epilogues i12,53,54 
EQUIV ALLOCATION PRINT ERRORS routine 

14,45,47 

EQUIV MAP routine 14, 45, us . | 
EQUIVALENCE (EQUIV) ALLOCATION ibi9 


47,48,156 
EQUIVALENCE (EQUIV) HOLD roll 145 
EQUIVALENCE (EQUIV) roll 46,47,151 
EQUIVALENCE (EQUIV) TEMP roll 145 
EQUIVALENCE OFFSET roll 45,152 
EQUIVALENCE statements 12,45. 
EQUIVALENCE variables 
allocation of storage for 45 
description 18 
listing of 21 
map of 48 
position in object module 17 
EREXITPR routine 34 | 
ERROR CHAR roll 144 
ERROR LBL roll 148 
ERROR MESSAGE roll 144 
error messages 21 
error recording 42 
ERROR roll 42,148 
errors 
detection of 42 
recording of 21,42 
ERROR SYMBOL roll 149 
ERROR TEMP roll 144 
ESD cards 
general 12 | | , 
produced by allocate 44,47,51 
Exit label list 208-211 
EXIT PASS routine 14,55 
Exit phase (IEYEXT) | 
definition 259 | | 
detailed description 55-58 
general description 13 © 
location in storage 15 | 
rolls used by 55 
exit roll 
definition 259 
description 24,161 
general 10 
in IEYROL 53 
in Parse 38 
location in storage 15 
EXPLICIT roll 149 
EXTADR register 
definition 259 
description 29 


extended error handling facility 232,212 


FL AC roll 153 
FL CONST roll 143 
flags 27 
forcing strength 
definition 259 
description 30,31 
in Parse 40 
table 31 
FORMAT ALLOCATION routine 14,45, 48 
FORMAT roll 48,157 
FORMAT statements 
description 20 
in Allocate 12,44,48 
listing of 21 
position in object module 17 | 
FORTRAN error routine (IHCIBERH) 42, 228 


FULL WORD SCALAR roll 47,155 
FUNCTION subprogram 46,49 

FX AC roll 151 | 

FX CONST roll 143 


Gen label list 198~208 
Gen phase (IEYGEN) 
definition 259 
detailed description 53-55 
general description 12 
location in storage 15 
rolls used by 53 
GEN PROCESS routine 14,53 
GENERAL ALLOCATION roll 160 
general register usage | 
used by compiler 28-29 
used by object module. 20 
GET POLISH routine 14,53, 54 
global area 136° |. hae 3 
GLOBAL DMY roll 47,49,148 
global jump table 28, 137, 138 
global jumps) 137,138 
global label 136,137,259 So 
GLOBAL SPROG ALLOCATE routine 14,45,48 
GLOBAL SPROG roll . 
description 142 
general 42 
in Allocate 48 
in Exit 56 
GO TO STA GEN routine 55 
GO TO statements, processing of 54,55 
group aos ? 
definition 259 
description 24,25 
group stats 
definition 25,259 
description 26 | 
location in storage 15 
Sizes 25 | 
group stats table 26 


HALF WORD SCALAR roll 47,152 


heading 


position in object module 17 
HEADOPT routine 35 
HEX CONST roll 154 


IBEXIT routine 239 

IBFINT routine 215 ine 
IEYALL (see Allocate phase) 
IEYEXT (see Exit phase) 
TEYFINAL routine 35 

IEYFORT (see Invocation phase) | 
IEYGEN (see Gen phase) | | 
IEYJUN subroutine 138 

TEYMOR routine 34 


Index 265— 


ITEYPAR 


(see Parse phase) 


IEYPCH routine 34. 
IEYPRNT routine 33 
IEYREAD routine 34 
IEYRETN routine 35 


IEYROL (see roll 


module) 


IEYUNF (see Unify phase) 


IF statement 


ITHCADJST 
IHCDBUG 

ITHCDIOSE 
ITHCECOMH 
IHCEDIOS 
IHCEFIOS 
ITHCEFNTH 
IHCERRM 

IHCETRCH 


37, 38, 39 
229-230, 249 
236-239, 258.6 
224-226, 245 
(see IHCFCOMH/ IHCECOMH) 
224-226, 245 
218-224, 244 
229-230, 248 
233,253 

233,258 


ITHCFCOMH/ IHCECOMH 


flowchart 
initialization operations 
input/output operations 
termination operations 


243 

215 
218-226,227-228 
239 


transfer and subroutine table 242.3 
IHCFCVTH 234 
IHCFDUMP 235-236, 258.1 
ITHCFDVCH 234,258.5 
IHCFEXIT 235, 258.2 
IHCFINTH 229-230, 248 
IHCFIOSH 218-224, 244 
THCFOPT 232-233, 255 
IHCFOVER 235,258.4 
ITHCFSLIT 235,258. 3 
ITHCIBERH 228-229, 250 
THCNAMEL 226-227, 247 
THCSTAE 231,251 
THCTRCH 230-231, 258 
IHCUATBL 239 
IHCUOPT 242.1-242.3 
IMPLICIT roll 153 
indirect addressing 135, 260 
indirect addressing instruction 135 


IND VAR roll 


description 


141 


in parse 37 


INIT roll 


49,145 


Invocation phase (IEYFORT) 


definition 
detailed description 


260 
33-36 


general description 12 
location in storage 15 


jump instructions 


_ keep 


definition 


132,133 


260 


general 23 — 


label lists 


Allocate 


266 


193-196 


Exit 208-211 
Gen 198-208 
Parse 185-193 


Unify 196-198 
labeled statement references 12 
labels 
branch target 12,18 
detailed description 135,136 
global 135,136 
local 135,136 
mode 17,54 
LAST CHAR CNT variable . 
definition 259 
description 26 
in Parse 38 
LAST SOURCE CHAR variable 38 
LBL FIELD XLATE routine 14, 37,38 
LBL process routine 14,53,54 
LBL roll 45,46,54,153 
LEVEL ONE UNIFY routine 53 
LIB roll 140 
LITERAL CONST ALLOCATION routine 
literal constants 
description 20 
in Allocate 12,44,45 
position in object module 17 
LITERAL CONST roll 143 
LITERAL TEMP (TEMP LITERAL) roll 
LOAD and DECK options 33 
LOCAL DMY roll 148 | 
local label 136,137,259 
LOCAL SPROG roll 45,46,149 
LOGICAL IF STA XLATE routine 38 
LOOP CONTROL roll 52,156 
LOOP DATA roll 
description 
in Parse 38 
in Unify 53 
LOOP SCRIPT roll 142 


14,45, 47 


155 


157 


made labels 17,54 
map . 
of scalars 47 
storage 21,44, 50, 260 
MAP option 51 
messages 
description 27 
location in storage 15 
printing of (IEYPRNT) 33 
produced by Allocate 48,49 
produced by Invocation 35,36 
produced by Parse 43,44 
minimum system configuration 9 
MOVE ZEROS TO T AND C routine 14 
MPAC1 and MPAC2 variables 
definition 259 
description 26 
multiple precision arithmetic 26 


NAMELIST ALLOCATION roll 48, 49,155 
NAMELIST ITEMS roll 149,150 


NAMELIST MPY DATA roll 57,160 
NAMELIST name 

roll 48 

table for 19 


NAMELIST NAMES roll 48,149 
NAMELIST tables 
definition 259 
description 19 
in Allocate 12,44,47 
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pruning of 23 

REG 146 

releasing of 35,45, 260 

reserving of 23,261 

RLD 55,56,57,156 

SCALAR 47,48,154 

SCRIPT 36,37,52,53,157 

Size limitations 22 
SOURCE 37,38,140 

special 24 

SPROG ARG 56,147 
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